用Delphi制作个性化的菜单

② 主窗口上有一个TPopupMenu 控件PopupMenu1、一个TImageList控件ImageList1，其PopupMenu1的Images属性等于ImageList1。

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

代码如下：

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

Selected: Boolean);

var

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

begin

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