請問如何動態的添加ActionMainMenuBar中的按鈕？ |
|
答題得分者是：syntax
|
|
allen-86
一般會員   發表：28 回覆：44 積分：19 註冊：2008-02-01 發送簡訊給我 |
因為ActionMainMenuBar1的介面比較漂亮，所以準備用ActionMainMenuBar1做系統的mainmenu。現在遇到一個問題不知道如何動態添加菜單。還請各位大哥幫忙指導一下，多謝！！
添加部份代碼： mActionBarItem:=TActionBarItem.Create(ActionManager1.ActionBars); mActionBarItem.ActionBar:=ActionMainMenuBar1; mActionClientItem:=TActionClientItem.Create(mActionBarItem.Items); mActionClientItem.Action:=mtaction; mActionClientItem.Caption:='Test1'; mActionBarItem1:=TActionBarItem.Create(ActionManager1.ActionBars); mActionBarItem1.ActionBar:=ActionMainMenuBar1; mActionClientItem1:=TActionClientItem.Create(mActionBarItem1.Items); mActionClientItem1.Action:=mtaction; mActionClientItem1.Caption:='Test2'; 現在可以添加上，但是不是想想中的test1，test2兩個菜單，而是只有test2一個菜單。 多謝各位！
------
The empty vessels make the greatest sound. |
|
syntax
尊榮會員  發表：26 回覆：1139 積分：1258 註冊：2002-04-23 發送簡訊給我 |
後面蓋掉前面了
===================引 用 allen-86 文 章=================== 因為ActionMainMenuBar1的介面比較漂亮，所以準備用ActionMainMenuBar1做系統的mainmenu。現在遇到一個問題不知道如何動態添加菜單。還請各位大哥幫忙指導一下，多謝！！ 添加部份代碼： mActionBarItem:=TActionBarItem.Create(ActionManager1.ActionBars); mActionBarItem.ActionBar:=ActionMainMenuBar1; mActionClientItem:=TActionClientItem.Create(mActionBarItem.Items); mActionClientItem.Action:=mtaction; mActionClientItem.Caption:='Test1'; mActionBarItem1:=TActionBarItem.Create(ActionManager1.ActionBars); mActionBarItem1.ActionBar:=ActionMainMenuBar1; mActionClientItem1:=TActionClientItem.Create(mActionBarItem1.Items); mActionClientItem1.Action:=mtaction; mActionClientItem1.Caption:='Test2'; 現在可以添加上，但是不是想想中的test1，test2兩個菜單，而是只有test2一個菜單。 多謝各位！ |
|
allen-86
一般會員 發表：28 回覆：44 積分：19 註冊：2008-02-01 發送簡訊給我 |
|
|
syntax
尊榮會員 發表：26 回覆：1139 積分：1258 註冊：2002-04-23 發送簡訊給我 |
[code delphi] mActionBarItem:=ActionManager1.ActionBars.Add(); mActionBarItem.ActionBar:=ActionMainMenuBar1; mActionClientItem:=mActionBarItem.Items.Add(); mActionClientItem.Action:=mtaction; mActionClientItem.Caption:='Test1'; mActionBarItem:=ActionManager1.ActionBars.Add(); mActionBarItem.ActionBar:=ActionMainMenuBar2; mActionClientItem:=mActionBarItem.Items.Add(); mActionClientItem.Action:=mtaction; mActionClientItem.Caption:='Test2'; [/code] |
|
allen-86
一般會員 發表：28 回覆：44 積分：19 註冊：2008-02-01 發送簡訊給我 |
多謝！向高手致敬！！！ ^_^
===================引 用 syntax 文 章=================== [code delphi] mActionBarItem:=ActionManager1.ActionBars.Add(); mActionBarItem.ActionBar:=ActionMainMenuBar1; mActionClientItem:=mActionBarItem.Items.Add(); mActionClientItem.Action:=mtaction; mActionClientItem.Caption:='Test1'; mActionBarItem:=ActionManager1.ActionBars.Add(); mActionBarItem.ActionBar:=ActionMainMenuBar2; mActionClientItem:=mActionBarItem.Items.Add(); mActionClientItem.Action:=mtaction; mActionClientItem.Caption:='Test2'; [/code]
------
The empty vessels make the greatest sound. |
發表時間：2009-11-04 17:29:00
IP:121.227.xxx.xxx 訂閱
系統時間：2024-05-17 3:32:23
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |