如何为动态生成的控件添加事件？

[BCBChina]

比如给按钮加加OnClick事件

[铖邑]

void __fastcall TForm1::ButtonClick(TObject *Sender)
{
...
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
TButton *Button = new TButton(this);
Button->OnClick = ButtonClick;
}

[ccrun.com]

.h:
private: // User declarations
void __fastcall BtnClick(TObject *Sender);


.cpp file:
void __fastcall TForm1::BtnClick(TObject *Sender)
{
ShowMessage("click!");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TButton *btn = new TButton(this);
btn->Parent = this;
btn->Left = 10;
btn->Top = 10;
btn->Caption = "新按钮";
btn->OnClick = BtnClick; // 注意这里
btn->Show();
}

[samchoy]

Button->OnClick = ButtonOnClick;

另定义一个函数:
void __fastcall TForm1::ButtonOnClick(TObject *Sender)

[niiv]

TButton *Button1 = new TButton(this);
Button1->Parent = this;
Button1->OnClick = ClickFunction;

ClickFunction是一个你自己定义的函数，注意函数声明要和系统产生的函数头一样。
这样，当你按下Button1时就会去执行ClickFunction;

[我不懂电脑]

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TButton *Button = new TButton(this);

Button->OnClick = ButtonClick;
Button->Left = 100;
Button->Top = 100;
Button->Parent = Form1;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ButtonClick(TObject *Sender)
{
Edit1->Text = "click";
}