PopupMenu 動態產生的 Item，怎麼寫 OnClick 事件啊？！ |
|
尚未結案
|
|
kyusikin
一般會員   發表：18 回覆：13 積分：6 註冊：2003-03-27 發送簡訊給我 |
各位大大：
程式碼如下： var mi : TMenuItem; While not A.Eof do
begin
mi := TMenuItem.Create(nil);
mi.Caption := A.FieldByName('B').AsString;
PopupMenu1.Items.Add(mi);
A.Next;
end; 這樣可以動態產生 Item，可是問題來啦，我要怎樣撰寫那些動態產生 Item 的 OnClick 事件啊？不好意思，我是新手。有勞各位費心了。謝謝！
|
|
wameng
版主  發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
自己寫事件去承接 procedure SelectMenuClick(Sender: TObject); procedure TForm1.SelectMenuClick(Sender: TObject);
begin
end; var mi : TMenuItem; While not A.Eof do
begin
mi := TMenuItem.Create(nil);
mi.Caption := A.FieldByName('B').AsString; mi.onClick := SelectMenuClick; PopupMenu1.Items.Add(mi);
A.Next;
end;
|
發表時間：2004-10-14 18:33:00
IP:203.70.xxx.xxx 未訂閱
系統時間：2024-05-17 11:21:32
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |