快来抢分呵！

Question

在form中定义过程MyOnClick;
生成后随时可以 MtEdit.OnClick = MyOnClick;

Answer 1

为了更好的控制，要使用tag属性var btn : TButton;
begin
  btn := TButton.Create(self);
  btn.Caption := 'xxxxx';
  //.....  btn.tag := 999;  //注明控件标识
  btn.OnClick := OnMyButton;
end;//自定义的事件响应过程
procedure OnMyButton(Sender: TObject);
begin
  //根据上面设置的tag值来判断按下的是哪个动态生成的控件
  if TButton(Sender).tag = 999 then begin
 
  end else begin  end;end;

Answer 2

记得指定它的Parent属性，如果Create参数为nil.