用過Word97的人對它的工具欄印象很深刻,因為它的風格很“酷”,同樣IE4.0的工具欄也有類似的風格,Win98的出現,使這種風格的工具欄得到了推廣。其實,用Delphi4很容易實現具有Word97風格的工具欄。
在Delphi4的元件選項板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外觀一樣的工具欄