动态生成的控件如何让它处理消息？？

Question

想在双击事件中改变控件上的文字，是继承呢，还是有其它办法？

Answer 1

procedure myclick;
begin
NewControl.font.color := clred;
end;
NewControl.onDblClick = myclick;

Answer 2

看你编写的事件响应函数，如果是通用型的就继承，如果是专用型的就必须重设
如
procedure TForm1.btn1Click(Sender: TObject);
begin
  btn1.Width:= 100;.
end;
由于在程序声明了要处理的控件就是btn1，所以不能继承。若
procedure TForm1.btn1Click(Sender: TObject);
begin
  (Sender as TButton).Width:= 100;.
end;
则可以继承