Delphi菜单如何做成word2000的可停靠样子

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

Word2000的菜单是可拖出来,并可停靠(DOCK)的,是如何实现的呢?

Delphi控件多有Dock的属性,关键就在这

先在窗体上放一个CoolBar

在CoolBar上放一个ToolBar添加几个按钮

设置ShowCaption的属性为True;

做一个MainMenu并添加几个菜单项

将窗体的menu属性设置为空

ToolBar的按钮AutoSize设为True

把按钮的MenuItem设为相应的MainMenu项

看一看是不是有点意思

对了,菜单还不能自动弹出,也不能拖出CoolBar的范围

这个好说

把按钮的Group属性设一下怎么样?变了没有,是不是可以自动弹出了?是不是很像Delphi5的IDE界面菜单.

把ToolBar的拖拽属性和停泊(Dock)属性设一下(你不会不知道哪个是这两个属性吧:-( )

快和Word200的菜单比一比吧.

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航