万企互联-专注高端网站建设
扫描关注万企互联微信公众账号

扫一扫微信二维码

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

程序设计2012/5/13 1232
Word2000的菜单是可拖出来,并可停靠(DOCK)的,是如何实现的呢?
  Delphi控件多有Dock的属性,关键就在这
  先在窗体上放一个CoolBar
  在CoolBar上放一个ToolBar添加几个按钮
  设置ShowCaption的属性为True;
  做一个MainMenu并添加几个菜单项
  将窗体的menu属性设置为空
  ToolBar的按钮AutoSize设为True
  把按钮的MenuItem设为相应的MainMenu项,注意:其List属性true时图标在左,否则,在上。
  看一看是不是有点意思
  对了,菜单还不能自动弹出,也不能拖出CoolBar的范围
  这个好说
  把按钮的Group属性设一下怎么样?变了没有,是不是可以自动弹出了?是不是很像Delphi5的IDE界面菜单.
  把ToolBar的拖拽属性和停泊(Dock)属性设一下(你不会不知道哪个是这两个属性吧:-( )
  快和Word200的菜单比一比吧.
文章分类
程序设计
打开微信,点击底部的“发现”,使用“扫一扫”即可将网页分享至朋友圈。
万企互联 咸阳网站建设 咸阳微信营销 IDC主机测评 IP地址查询 万企工具 四六互联 四六技术网 品多技术网 超越彼岸BEYOND 六佰号 秦川云 秦川云影院