如何实现窗体响应自编类的事件

Question

举个例子我在全局中说明var x:TBUTTON;我在Button1Click中
x:=TBUTTON.Create(nil);
x.show;请问，如何响应新创建出来的按钮x的点击事件？

Answer 1

var
  TikkyPengButton:TButton;
begin
  TikkyPengButton := TButton.Create(FrmDemo);
  with TikkyPengButton do
  begin
    Name := 'ButtonDemo';
    Caption := 'ButtonDemo';
    Parent := Form1;
    Height:= 25;
    Width:= 60;
    OnClick := Button1Click; 
  end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('OK');
end;