如何关联动态产生的控件的事件？

Question

一个Panel上有若干控件，有edit、label、button ....我想将它们的OnMouseDown事件关联到另一个过程ctrlonmousedown,怎么做？

Answer 1

edit.OnMouseDown := ctrlonmousedown;

Answer 2

谢谢各位，但我的控件创建过程是不指定具体的的类型的。
TControlClass =class of TControl;
.....
....
procedure TForm1.createControlObj(ControlClass:TControlClass; x,y,xw,yh:Integer);
var
  AControlObj:TControl;
  count,i:integer;
  proplist:pproplist;
begin
  AControlObj:=ControlClass.Create(self);
  AControlObj.Parent:=panel2;
  AControlObj.SetBounds(x,y,xw,yh);
end;