自绘菜单Menu字体改变大小

最新推荐文章于 2023-03-19 21:40:22 发布

转载最新推荐文章于 2023-03-19 21:40:22 发布 · 3.3k 阅读

Delphi 专栏收录该内容

5 篇文章

订阅专栏

本文介绍如何使用Delphi通过编程方式实现自定义菜单样式，包括调整菜单项的字体大小和高度宽度，使得菜单项更加美观且易于阅读。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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