如何定义和使用动态创建控件的事件?

Question

如题

Answer 1

写一个与控件事件具有相同参数的过程如：
procedure MyOnKeyPress(Sender: TObject; var Key: Char);
然后：YourComponents.OnKeyPress:=MyOnKeyPress;

Answer 2

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure MyBtnClick(Sender: TObject);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  btn: TButton;
begin
  btn := TButton.Create(nil);
  btn.Parent := self;
  btn.Left := 100;
  btn.Top := 100;
  btn.Caption := 'click me';
  btn.OnClick := MyBtnClick;
end;procedure TForm1.MyBtnClick(Sender: TObject);
begin
  ShowMessage('success!');
end;