Word2000的菜單是可拖出來,並可停靠(DOCK)的,是如何實現的呢?
Delphi控件多有Dock的屬性,關鍵就在這
先在窗體上放一個CoolBar
在CoolBar上放一個ToolBar添加幾個按鈕
設置ShowCaption的屬性為True;
做一個MainMenu並添加幾個菜單項
將窗體的menu屬性設置為空
ToolBar的按鈕AutoSize設為True
把按鈕的MenuItem設為相應的MainMenu項
看一看是不是有點意思
對了,菜單還不能自動彈出,也不能拖出CoolBar的范圍
這個好說
把按鈕的Group屬性設一下怎麼樣?變了沒有,是不是可以自動彈出了?是不是很像Delphi5的IDE界面菜單.
把ToolBar的拖拽屬性和停泊(Dock)屬性設一下(你不會不知道哪個是這兩個屬性吧:-( )
快和Word200的菜單比一比吧.
