Word2000的菜單是可拖出來,并可停靠(DOCK)的,是如何實現的呢?

Delphi控件多有Dock的屬性,關鍵就在這

先在窗體上放一個CoolBar

在CoolBar上放一個ToolBar添加幾個按鈕

設置ShowCaption的屬性為True;

做一個MainMenu并添加幾個菜單項

將窗體的menu屬性設置為空

ToolBar的按鈕AutoSize設為True

把按鈕的MenuItem設為相應的MainMenu項

看一看是不是有點意思

對了,菜單還不能自動彈出,也不能拖出CoolBar的范圍

這個好說

把按鈕的Group屬性設一下怎么樣?變了沒有,是不是可以自動彈出了?是不是很像Delphi5的IDE界面菜單.

把ToolBar的拖拽屬性和停泊(Dock)屬性設一下(你不會不知道哪個是這兩個屬性吧:-( )

快和Word200的菜單比一比吧.