全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1155
推到 Plurk!
推到 Facebook!

MainMenu MenuItem 動態產生下拉的內容

尚未結案
Eigen
初階會員


發表:19
回覆:36
積分:26
註冊:2002-12-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-09-13 13:53:55 IP:220.228.xxx.xxx 訂閱
我拉了一個 TMainMenu 到 form ,並加入一個 TMenuItem Files
我希望動態產生 Files 下拉的內容
我利用 Files1->Clear()這個指令(主要是希望在新增前先將舊有的內容刪除)


[code cpp]
void __fastcall TForm1::Files1Click(TObject *Sender)
{
Files1->Clear()
for(int i=0;i<3;i ){
TMenuItem *NewItem =new TMenuItem(Files1);
NewItem->Caption=IntToStr(i);
Files1->Add(NewItem);
}
}
[/code]

但是一直失敗
最後我只能改用這種寫法(問題是我個人覺得這樣寫很失敗)先記下目前有幾個 item ,新增完之後再來刪除

[code cpp]
void __fastcall TForm1::Files1Click(TObject *Sender)
{
int j=Files1->Count;
for(int i=0;i<3;i ){
TMenuItem *NewItem =new TMenuItem(Files1);
NewItem->Caption=IntToStr(i);
Files1->Add(NewItem);
}
while(j){Files1->Delete(0);j--;}
}
[/code]

系統時間:2017-12-11 15:21:49
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!