請問如何動態的添加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. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |