delphi MainMenu组件求助。

Posted 2023-04-30

delphi中mainmenu组件怎么把菜单中的一条横线设置出来？该怎么设置？                                  谢谢各位的解答。

参考技术A 新建一个菜单项，Caption设置为“-”（注意是半角的） 参考技术B -
你试试就知道了 参考技术C Caption 设为 - 即可！ 参考技术D 晕，这个很简单啊，就是把caption属性输入个减号“-”就ok

delphi下拉菜单（mainmenu）字体怎么设置？

之前有看到人这样说 ，但是我的字体名字不管怎么换都不变，试过了隶书，微软雅黑等等！！！

窗体上放一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

将菜单的的OwnerDraw为True

然后自定义重绘事件，就可以了，代码如下：

procedure TForm1.N1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: 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;

procedure TForm1.N1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
  Height:=40;       //设置为足够高以容纳你的菜单项
  Width:=200;     //设置为足够宽以容纳你的菜单项
end;

把要重绘的菜单项的事件指以上事件即可，效果如下：

右键弹出菜单相同

参考技术A 我试了代码没问题，会不会你 MainMenu的OwnerDraw没有设置为True,追问

设置了，你那里不同字形也都设置了？

追答

我是随便改一下字体 ，跟你的例子一样。

追问

我只能设置字体大小，字体字形不能

参考技术B Delphi默认菜单控件mainmenu是不能设置字体的，因为标题栏字体、菜单字体WINDOWS统一的外观的一部分（也是所有程序都是一样的），由于要设置可以自绘或使用第三方控件如XPMenu等。追问

不会用这个插件，网上也搜不到讲解。。。

参考技术C 改变Font Type的属性叫Typeface
默认情况下,Android只支持
sans,
serif,
monospace
三种内嵌字体.
如果要使用自定义的字体,请将字库的ttf导入资源,再引用(过程不简单,具体请谷歌)追问

安卓？

追答

恩

追问

我用的是电脑和安卓有什么关系？