如何写WIN98一样的开始菜单?(50分)

  • 主题发起人 主题发起人 jingzux
  • 开始时间 开始时间
J

jingzux

Unregistered / Unconfirmed
GUEST, unregistred user!
如何写一个和WIN98一样左边有图的开始菜单?请给出例子。
 
就用Delphi TPopupMenu 加 TImagelist即可.
 
1 .在 Form1 的上放一个 TMainMenu ,添加一个 File(&F)的菜单项
2 .在将 Form1 的 AutoSize 设为 True,Menu设为空;
3 .在 Form1 上放一个TToolBar,将 ToolBar1.ShowCaption := True;
4 .在 ToolBar1 上放一个 TToolButton ,将其 MenuItem 设为 File(&F)
 
用用第三方控件,推荐 Venus for Delphi4/5
 
用popup menu 在弹出时设定位置
 
是啊,给弹出菜单加上图象旧可以了!
 
我也想知道,请哪位高手讲讲实现的原理,第三方控件我也用过,可以实现这样的功能,
但是它怎么实现的并不清楚,我想jingzux也是这个意思...
 
在《电脑报》还是《电脑商情报》中好象有见过,我好象还有,不过得找一找,我记得
挺长的。上面两种报纸的合订本也出来了,不妨到合订本里面找找看。
 
到我主页<a href="http://ph11.126.com">风之纹章</a>上去看看吧,我在我编写的
Sonic Mp3播放器就用到了该方法...
 
到我的主页 http://person.zj.cninfo.net/~HAMSoft/hamwnl.htm 下载最新
8.8.2000.1025版本的记事万年历,菜单比任何第三方构件做出的效果要酷!!!!
不看不知道,一看吓一跳,只有想不到,没有做不到。
 
各位好!
   我的意思是如何编写象WIN98的“开始菜单”左边有“WINDOWS98”字样的开始菜单。
我下载过coolmenu可以实现,可子菜单也有,我不希望子菜单左边那个东西,不知如何设置,
另外好象coolmenu要注册。能否有其它方法?请给出例子好吗?

 
在OnItemDraw和OnMeasure事件中画图标及文字。
 
jingzux:如果还想接着讨论请定期提前自己的帖子,如果不想继续讨论请结束帖子。
 
多人接受答案了。
 
后退
顶部