程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 用Delphi實現風Word97風格的工具欄

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

編輯:Delphi
在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外觀一樣的工具欄。
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved