Word2000的菜單是可拖出來(lái),并可停靠(DOCK)的,是如何實(shí)現(xiàn)的呢?

Delphi控件多有Dock的屬性,關(guān)鍵就在這

先在窗體上放一個(gè)CoolBar

在CoolBar上放一個(gè)ToolBar添加幾個(gè)按鈕

設(shè)置ShowCaption的屬性為True;

做一個(gè)MainMenu并添加幾個(gè)菜單項(xiàng)

將窗體的menu屬性設(shè)置為空

ToolBar的按鈕AutoSize設(shè)為True

把按鈕的MenuItem設(shè)為相應(yīng)的MainMenu項(xiàng)

看一看是不是有點(diǎn)意思

對(duì)了,菜單還不能自動(dòng)彈出,也不能拖出CoolBar的范圍

這個(gè)好說(shuō)

把按鈕的Group屬性設(shè)一下怎么樣?變了沒(méi)有,是不是可以自動(dòng)彈出了?是不是很像Delphi5的IDE界面菜單.

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

快和Word200的菜單比一比吧.