如何使鼠标占击动态建立的image控件，弹出一个消息？

Question

我动态建立，多个image控件，存放临时图片，应用程序运行时，如何使鼠标点击到此控件时，弹出一个消息（或进行其它处理呢），谢谢指教！！！

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  NewImgA:TImage;
begin
  NewImgA:=Timage.Create(Self);
  with newimga do
  begin
    Name:='NewImgB';
    Width:=Image1.Width;
    Height:=Image1.Height;
    NewImga.Picture:=Image1.Picture;
    left:=Image1.Left +Image1.Width;
    Top:=Image1.Top;
    Parent:=Self;
    OnClick:=Image1Click;
  end;
end;procedure TForm1.Image1Click(Sender: TObject);
begin
  if not(Sender is TImage) then exit;
  if (Sender as Timage).Name ='NewImgb' then
  begin
    //dosomething
  end;
end;

Answer 2

private
    { Private declarations }
    procedure ImgOnClick(Sender: TObject);
  ...
procedure TForm1.ImgOnClick(Sender: TObject);
begin
  ShowMessage('yeah');
end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  imgTest: TImage;
begin
  imgTest := TImage.Create(self);
  imgTest.Picture := Image1.Picture;
  imgTest.Parent := self;
  imgTest.OnClick := ImgOnClick;
  ...
end;