whuang8
一般會員
發表:5 回覆:4 積分:1 註冊:2003-07-07
發送簡訊給我
|
例如我有一個TPanel元件,我又在裡面 new了一些button
可是現在沒有buttonclick函式可以寫我要按button之後的動作?
那我如何改才能使用元件中元件的event呢??
|
paf
初階會員
發表:36 回覆:70 積分:41 註冊:2002-12-27
發送簡訊給我
|
void __fastcall TForm1::Button1Click(TObject *Sender)
{
.
.
.
}
|
axsoft
版主
發表:681 回覆:1056 積分:969 註冊:2002-03-13
發送簡訊給我
|
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
發送簡訊給我
|
謝謝axsoft的建議,我大致了解你的意思~ 不過我的是自製元件再包成另外一個自製元件,
那我的ap端,要怎麼判斷我現在按的是那個自製元件中的function,
假如我的物件是一個TPanel上新增2個Tbutton MyButton->OnClick = DynamicClick????
|