Delphi實(shí)現(xiàn)自動停靠的菜單

字號:

本實(shí)例制作一個工具欄風(fēng)格的可以自動??康牟藛?。
    在窗體中添加一個TMainMenu組件,并且為它添加兩個選項(xiàng)——File和Edit。然后向窗體上添加一個TControlBar組件,設(shè)置它的Align屬性值為alTop。最后選中TControlBar組件,然后在組件工具欄中雙擊TToolBar組件,這樣就會把TToolBar組件添加到TControlBar組件上,通過這樣的方法向TControlBar上添加兩個TToolBar組件,設(shè)置TToolBar組件的Menu屬性為TMainMenu組件。
    保存文件,然后按F9鍵運(yùn)行程序。
    在程序運(yùn)行的過程中,可以通過鼠標(biāo)拖動來改變工具欄風(fēng)格的菜單的位置,并且可以自動??俊?BR>