程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 在DELPHI7中不使用任何第三方控件,實現放在工具欄上可拖動的XP風格菜單

在DELPHI7中不使用任何第三方控件,實現放在工具欄上可拖動的XP風格菜單

編輯:Delphi

  今天有點空閒時間,順便寫點東西,不是什麼深奧的東西,但實用,對於不想第三方控件但又想加點效果的朋友可能有點用.實現的效果如圖:

  步驟一:把Win32面板上把CoolBar組件加到窗體上

  步驟二:把Additional面板上的ActionMainMenuBar組件加到CoolBar組件上.(注意一定要放在CooBar 組件上)

  步驟三:把Win32面板上的PageScroller組件同樣加到CoolBar組件上.

  步驟四:把Additional面板上的ActionToolBar組件加到PageScrooler組件上(注意放在PageScroolerh 上)

  步驟五:把Additional面板上的ActionManager組件加到窗體上

  步驟六:把CoolBar組件的AutoSize屬性設為True

  步驟七:選擇ActionManager組件,雙擊它的的ActionBars屬性,在彈出的Editing ActionManager1.ActionBars框中增加兩個TActionBarItem,選擇第一個TActionBarItem,雙擊它的Items屬性,在彈出的框中增加兩個ActionClientItem,把兩個ActionClientItem的Caption屬性分別設成"文件" ,"編輯", 再在ActionClientItem中的Items屬性增加ActionClientItem, 並把它們的Caption屬設成"新建","打開"之類的.如果你想在新建裡面再出現子菜單,那麼就在它的Items屬性再增加ActionClientItem,設好Caption內容. 選擇第二個TActionBarItem,按照上面所講的方法同樣增加ActionClIEntItem,並設好Caption屬性.

  步驟八:選擇第一個TActionBarItem, 設它的ActionBar屬性為ActionMainMenuBar,選第二個TActionBarItem,設它的ActionBar屬性為ActionToolBar.

  步驟九:運行程序,相信你已經看到所圖所示的效果.致於其它很多屬性,讀者自己去分析.

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved