动态加入组件时（例如一按钮），如何实现事件（例如单击事件）？？？？？小女子不胜感谢！！！！

Question

先写个事件处理过程，然后
在创建完组件后，赋值：
比如
button1.onclick:=you_eventmethod;
可以了

Answer 1

例如你已经生成了一个控件Button2：
Button2.OnClick:=MyClick;注意：你的MyClick过程必须与Button控件的原始格式一致。

Answer 2

那应该是你写的事件处理过程与按钮的ONCLICK不同，我以前也遇过这样的事

Answer 3

这个例子是生成一个Image控件：
1、在Form的Type中加入
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
2、在Form的var中加入
  Image1:     TYImage;
3、在需要的地方
  Image1:=TYImage.Create(Image1ViewForm);
  Image1.Parent:=Form1;
  Image1.OnMouseDown:=Image1MouseDown;
  Image1.Top:=0;
  Image1.Left:=0;
4、Image1MouseDown的实现代码。
procedure TForm1.Image1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if(Button=mbLeft)then begin
    LastX:=X;
    LastY:=Y;
  end;
end;

Answer 4

一时疏忽：
上例中的TYImage其实为TImage.

Answer 5

：　sunnysun(林林)　 
你的错误我看是因为
你的组件声明为
过程内部的局部变量了，
而你在 外部给他的事件 赋值，
所以错了 呵呵

Answer 6

lpy(燕山散人)　，谢谢，谢谢大家。