用Delphi實現風Word97風格的工具欄

2019-11-18 18:51:34

字體：大中小

來源：轉載

供稿：網友

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

上一篇：Delphi中實現文件拷貝的三種方法

下一篇：將面向對象的思想貫穿始終--談Delphi開發（第三篇）