線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:827
推到 Plurk!
推到 Facebook!

怎麼使用元件中元件的事件

尚未結案
whuang8
一般會員


發表:5
回覆:4
積分:1
註冊:2003-07-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-07-23 16:03:50 IP:61.222.xxx.xxx 未訂閱
例如我有一個TPanel元件,我又在裡面 new了一些button 可是現在沒有buttonclick函式可以寫我要按button之後的動作? 那我如何改才能使用元件中元件的event呢??
paf
初階會員


發表:36
回覆:70
積分:41
註冊:2002-12-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-07-23 16:53:29 IP:218.164.xxx.xxx 未訂閱
void __fastcall TForm1::Button1Click(TObject *Sender) { . . . }
axsoft
版主


發表:681
回覆:1056
積分:969
註冊:2002-03-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-07-23 17:45:20 IP:61.218.xxx.xxx 未訂閱
whuang8 您好:
 
試試下面的方法:
//--------------------------------------------------------------------------
// Main.h
//--------------------------------------------------------------------------
#ifndef MainH    #define MainH    #include     #include     #include     #include     class TForm1 : public TForm    {    __published: // IDE-managed Components      TButton *CreateDynamicButtonBtn;      void __fastcall CreateDynamicButtonBtnClick(TObject *Sender);      void __fastcall DynamicClick(TObject *Sender);    private: // User declarations      TButton *MyButton;    public: // User declarations      virtual __fastcall TForm1(TComponent* Owner);    };    //--------------------------------------------------------------------------    extern TForm1 *Form1;        //--------------------------------------------------------------------------
// Main.cpp
//--------------------------------------------------------------------------
#endif    include     #pragma hdrstop    #include "Main.h"    #pragma resource "*.dfm"    TForm1 *Form1;    __fastcall TForm1::TForm1(TComponent* Owner)      : TForm(Owner)    {    }    void __fastcall TForm1::DynamicClick(TObject *Sender)    {      AnsiString S("你建立DynamicClick成功了!");      ShowMessage(S);    }    void __fastcall TForm1::CreateDynamicButtonBtnClick(TObject *Sender)    {      MyButton = new TButton(this);      MyButton->Parent = this;      MyButton->Caption = "Dynamic Button";      MyButton->Width = 250;      MyButton->Show();      MyButton->OnClick = DynamicClick;      CreateDynamicButtonBtn->Enabled = False;    }    
HAVE A NICE DAY FOR YOU 發表人 - axsoft 於 2003/07/23 17:57:18
whuang8
一般會員


發表:5
回覆:4
積分:1
註冊:2003-07-07

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-07-24 11:52:50 IP:61.222.xxx.xxx 未訂閱
謝謝axsoft的建議,我大致了解你的意思~ 不過我的是自製元件再包成另外一個自製元件, 那我的ap端,要怎麼判斷我現在按的是那個自製元件中的function, 假如我的物件是一個TPanel上新增2個Tbutton MyButton->OnClick = DynamicClick????
系統時間:2024-04-30 8:24:48
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!