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

2008-04-09 04:31:56来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

在其Delphi工程的主窗口上有一个TCoolBar控件CoolBar1,其上又放了一个TToolBar控件,并且TCoolBarBitmap属性不为空(即为其指定了图象)。


主窗口上有一个TPopupMenu 控件PopupMenu1、一个TImageList控件ImageList1,其PopupMenu1Images属性等于ImageList1


TToolBarTransparent属性为True,并且上面的工具按钮的MenuItem属性分别与相应的菜单项相关联(注意,这是用工具条、工具按钮和弹出式菜单制作主菜单的方法,应将工具按钮的Grouped属性全部设为True)。


代码如下:


procedure TForm1.DrawItem(Item:TMenuItem; ACanvas: TCanvas; ARect: TRect;


Selected: Boolean);


var


dc,y,i,j,xb,xe:integer;


begin

标签:

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

上一篇:Borland IDE 常用热键简介 v0.1

下一篇:[笔记] FMX 在 iOS 平台主窗体 DoubleTap 手势,要慎用!