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