Delphi : 自绘菜单Menu字体改变大小 menu菜单的属性面板是没有font属性的，可以通过写代码来改变菜单字体大小。 窗体上放一MainMenu1，包含的菜单项为MenuItem1,MenuItem2... 设置为MainMenu的OwnerDraw为True, MenuItem1的OnDrawItem事件： procedure TForm1.MenuItem1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); begin ACanvas.FillRect(ARect); ACanvas.Font.Size:=20; //设置为足够大的字号 ACanvas.Font.Name:= 'Times New Roman '; //设置为你喜欢的字体 //输出菜单项 ACanvas.TextOut(ARect.Left,ARect.Top,(Sender as TMenuItem).Caption); end; MenuItem1的OnMeasureItem事件： procedure TForm1.MenuItem1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer); begin Height:=40; //设置为足够高以容纳你的菜单项 Width:=200; //设置为足够宽以容纳你的菜单项 end; 将其他菜单项的OnDrawItem设置为MenuItem1DrawItem OnMeasureItem设置为MenuItem1DrawItem
