用Delphi制作个性化的菜单(3)

属性；

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的一个示例的代码。但需作如下说明：

①

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有