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

動態產生按鈕後怎麼寫CLICK事件

尚未結案
ccd0614
一般會員


發表:4
回覆:10
積分:2
註冊:2004-05-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-08-16 13:15:50 IP:210.59.xxx.xxx 未訂閱
我利用了三行程式來動態產生出一個按鈕 TButton *ButtonA; ButtonA = new TButton(FormMain); ButtonA->Parent = FormMain; 但是我想在在按鈕CLICK的時候執行我的程式碼 但是卻不能用類似TFormMain::ButtonAClick(TObject * Sender) 的方式來執行我的程式碼 請各位大大幫幫忙 另外 如果我同時產生三個按鈕 那要寫這三個按鈕的click事件該怎麼辦 發表人 - taishyang 於 2004/08/16 20:18:38
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-08-16 13:41:40 IP:203.73.xxx.xxx 未訂閱
引言: 我利用了三行程式來動態產生出一個按鈕 TButton *ButtonA; ButtonA = new TButton(FormMain); ButtonA->Parent = FormMain; 但是我想在在按鈕CLICK的時候執行我的程式碼 但是卻不能用類似TFormMain::ButtonAClick(TObject * Sender) 的方式來執行我的程式碼 請各位大大幫幫忙 另外 如果我同時產生三個按鈕 那要寫這三個按鈕的click事件該怎麼辦
ccd0614 你好: 請參考以下的連結文章 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
ccd0614
一般會員


發表:4
回覆:10
積分:2
註冊:2004-05-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-08-17 10:31:29 IP:210.59.xxx.xxx 未訂閱
感謝RaynorPao大大的指導 我也順利的產生了一個Group Box 與三個按鈕可供我程式設定用 但是我用完後 卻沒辦法釋放我所產生的三個按鈕與Group Box 我的方法是多增加一個按鈕 用來釋放這三個按鈕 但是Group Box有沒有辦法可以在我那多增加的按鈕按下去之後 一起釋放掉 請前輩多多指教
andychang1690
資深會員


發表:20
回覆:694
積分:442
註冊:2003-03-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-08-17 15:36:45 IP:219.132.xxx.xxx 未訂閱
請問能告之你釋放的方式嗎? Andy Chang
------
Andy Chang
ccd0614
一般會員


發表:4
回覆:10
積分:2
註冊:2004-05-09

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-08-22 13:49:41 IP:218.167.xxx.xxx 未訂閱
TGroupBox *grp1 = new TGroupBix(FormMain); grp1->Parent = FormMain; TButton *ButtonA; ButtonA = new TButton(FormMain); ButtonA->Parent = FormMain; ButtonA->OnClick = ~grp1; 我這樣做並不能同時釋放掉BUTTONA與GROUPBOX 請問到底要怎麼做才能同時釋放呢?
andychang1690
資深會員


發表:20
回覆:694
積分:442
註冊:2003-03-14

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-08-22 16:32:46 IP:219.132.xxx.xxx 未訂閱
引言: TGroupBox *grp1 = new TGroupBix(FormMain); grp1->Parent = FormMain; TButton *ButtonA; ButtonA = new TButton(FormMain); ButtonA->Parent = FormMain; ButtonA->OnClick = ~grp1; 我這樣做並不能同時釋放掉BUTTONA與GROUPBOX 請問到底要怎麼做才能同時釋放呢?
ccd0614:
釋放應該使用
delete ButtonA;
如動態生成元件我建議你應該
先建立
TList    *Component_List;  // 存放你的動態元件
Component_List = new TList; // h檔Public TList    *Component_List;
void __fastcall THTMLEDIT::FormDestroy(TObject *Sender)
{
  // 清除元件暫存檔
  for (int iCount = 0; iCount < Component_List->Count; iCount  )
  {
    delete (TComponent *) Component_List->Items[iCount];
  }
  delete Component_List;
}    TButton *ButtonA; 
ButtonA = new TButton(Form1);
ButtonA->Parent = Form1;
ButtonA->OnClick = OnClick;     Component_List->Add(ButtonA); // 加入動態元件    如此你程式上處理會更靈活方便!
請參考    
Andy Chang
------
Andy Chang
系統時間:2024-05-13 9:16:34
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!