用Delphi制作个性化的菜单

inc(xb);

end;

ACanvas.Font.Color:=clWhite;//被选中时的字体前景色是白色

SetBkMode(ACanvas.Handle,TRANSPARENT);

ACanvas.TextOut(ARect.Left 20,ARect.Top 4,Item.Caption);

end;

ImageList1.Draw(ACanvas,ARect.Left 1,ARect.Top 1,Item.ImageIndex,true);//绘制左边的图标

end;

同理，应在各菜单项的OnDrawItem事件处均调用此过程。

七、小结

使用自绘式菜单，对整个菜单进行全面的重绘，可以任其想象发挥，绘出五颜六色的个性化菜单，极大地丰富程序界面。
此外，用此方法虽然简单但较率较低，不适合做要求较高的软件。高级的做法是全部使用WindowsAPI和消息。
需要示例示源代码的，请到www.netgocn.com留言，一定给你。

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