動態建立Menu |
|
答題得分者是：william
|
|
cyl
中階會員   發表：163 回覆：171 積分：66 註冊：2002-07-11 發送簡訊給我 |
請問我要動態建立選單要如何撰寫??
我參考站上的範例程式
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
setlength(MyMenu,table1.recordcount);
table1.first;
Root1.Clear;
i:=0;
while not table1.eof do
begin
MyMenu[i]:=TMenuItem.create(Application);
MyMenu[i].Caption:=table1.fieldbyname('NAME').AsString;
MyMenu[i].Visible:=true;
MyMenu[i].OnClick:= MenuItemClick;
Root1.add(MyMenu[i]);
inc(i);
table1.next;
end;
end;
但是我若想讓選單往右新增選單該如何做??
如以下的選單:
A B C
a1 b1 c1
a2 b2 c2
|
|
william
版主  發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
|
|
banson1716
高階會員 發表：55 回覆：182 積分：167 註冊：2002-04-14 發送簡訊給我 |
|
|
cyl
中階會員 發表：163 回覆：171 積分：66 註冊：2002-07-11 發送簡訊給我 |
引言: e.g. MyMenu := TMenuItem.Create(self); MyMenu.Caption := 'A'; Root1.Add(MyMenu); MyMenu2 := TMenuItem.Create(self); MyMenu2.Caption := 'A1'; MyMenu.Add(MyMenu2); {....}我想增加在root這一層,為什麼會出錯?? MyMenu1.Caption := 'A'; MainMenu1.Items.Add(MyMenu1) ; MyMenu1.Caption := 'B'; MainMenu1.Items.Add(MyMenu1) ; |
|
william
版主 發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
發表時間：2003-01-06 09:48:09
IP:61.218.xxx.xxx 未訂閱
系統時間：2024-11-24 21:43:23
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |