用Delphi實(shí)現(xiàn)風(fēng)Word97風(fēng)格的工具欄

2019-11-18 18:51:34

字體：大中小

供稿：網(wǎng)友

在Delphi的元件選項(xiàng)板Additional頁中，新增了Controlbar元件，此元件和Win32頁中的Toolbar、Coolbar配合使用，再輔以Imagelist、Mainmenu等元件，完全可以實(shí)現(xiàn)具有Word97風(fēng)格的工具欄。下面以一個(gè)FORM中的工具欄為例，詳細(xì)介紹設(shè)計(jì)步驟：
    1?貝?Additional頁中選擇Controlbar，將其放入FORM1中，設(shè)置其屬性如下：Allign:=altopAutosize:=trueBevelkind:=bknone
    2?貝?Win32頁中選擇Toolbar，將其放于Controlbar上，調(diào)整Toolbar的位置，使其置于最左，再調(diào)整其寬度，設(shè)置屬性Edgeborders:=[]，F(xiàn)lat:=TRUE。用鼠標(biāo)右擊Toolbar，在浮動菜單上選擇Newbutton，重復(fù)若干次，設(shè)計(jì)好所需的按鈕。
    3?貝?Win32頁中選擇Imagelist元件，為FORM1設(shè)計(jì)主菜單，主菜單的設(shè)計(jì)方法同Delphi2、Delphi3。設(shè)計(jì)好主菜單后，將其屬性Automerge置為TRUE。
    4?弊詈笪?每一個(gè)按鈕分配Tmenuitem的Name值，將每個(gè)按鈕的Menuitem屬性值設(shè)為所需菜單的Name值。
    按F9運(yùn)行程序，便可發(fā)現(xiàn)，設(shè)計(jì)出的工具欄已經(jīng)具有Word97的風(fēng)格，用鼠標(biāo)在各個(gè)按鈕上移動，按鈕自動上浮，單擊鼠標(biāo)，彈出相應(yīng)的菜單。需要說明的是，Mainmenu的屬性Automerge置為TRUE，是為了不讓主菜單出現(xiàn)在FORM1的最上端。工具欄的設(shè)計(jì)必須將Controlbar與Toolbar結(jié)合使用，不然得不到與Word97外觀一樣的工具欄。

上一篇：Delphi中實(shí)現(xiàn)文件拷貝的三種方法

下一篇：將面向?qū)ο蟮乃枷胴灤┦冀K--談Delphi開發(fā)（第三篇）