一个控件的事件如何动态生成?

Question

procedure OnMyButton(Sender: TObject);
begin
  //自定义的控件事件
end; begin
  btn1 := TButton.Create(self);
  btn1.OnClick := OnMyButton;
end;

Answer 1

procedure MyEditChange(Sender: TObject);
begin
  ShowMessage('Pass');
end; var
  MtEdit:TEdit;
begin
  MtEdit := TEdit.Create(self);
  MtEdit.OnChange := MyEditChange;
end; 

Answer 2

楼上二位已经说的很清楚了,就是Edit.onChange:=你自己的函数.
不过你自己的函数注意参数和类型应该和onChange默认的相同.