用Delphi制作个性化的菜单

iBkMode – 指定的背景模式标识符，有OPAQUE 和TRANSPARENT两个
常量取值，取TRANSPARENT时，为透明模式。

设置了背景模式后，可以使用TCanvas的TextOut方法绘制菜单文本。

五、响应自绘式菜单的OnDrawItem事件
为菜单项的OnDrawItem事件添加代码，完成想要完成的重绘工作，如下所示（M_Item1_1是菜单项名称）：

procedure TForm1.M_Item1_1DrawItem(Sender: TObject; ACanvas: TCanvas;

ARect: TRect; Selected: Boolean);

begin

//调用自定义过程--重绘菜单项

DrawItem(TMenuItem(Sender), ACanvas, ARect,Selected);

end;

六、二个示例

㈠　以下是实现上述个性化菜单的自定义过程DrawItem的一个示例的代码。但需作如下说明：

①

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!