请教各位!动态创建的控件,该如何让它响应事件!

Question

你自己写就行啊，比如
Button1.OnClick := MyOnClick;
自己定义的必须和前面的参数一致

Answer 1

procedure TfrmMain.MyOnClick(Sender: TObject);
这样就可以了，注意要在类里面定义

Answer 2

举个例子
先以同样的参数编好一个通用的事件处理程序，General_Click(...)AButton:=TButton.Create;
AButton.onClick:=General_Click(...)
AButton.Show;

Answer 3

例如：
  TForm1 = class(TForm)
  ……
  Private
    vButton: TButton;
    procedure MyButtonClick(Sender: TObject);
  …………
  vButton := TButton.Create(Self) 
  with vButton do
  begin
    Parent := Self;
    Width := 75;
    Height := 24;
    OnClick := MyButtonClick;
  end;
    ……procedure MyButtonClick(Sender: TObject);
begin
  ShowMessage('abc');
end;