然后自定义重绘事件,就可以了,代码如下:
procedure TForm1.N1DrawItem(Sender: TObjectACanvas: TCanvasARect: TRect
Selected: Boolean)
begin
ACanvas.FillRect(ARect)
ACanvas.Font.Size:=15//设置为足够大的字号
ACanvas.Font.Name:='仿宋'//设置为你喜欢的字体
//输出菜单项
ACanvas.TextOut(ARect.Left,ARect.Top,(Sender as TMenuItem).Caption)
end
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)