动态创建图片，图片如何响应鼠标点击，鼠标移动？

Question

加载图片之后，无法在图片上响应鼠标点击和移动，请高手给点思路？

Answer 1

1.先准备两个用于鼠标移动和点击的过程
procedure TForm1.ImageClick(Sender: TObject);
begin
//
end;procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
//
end;2.创建图片后，把图片的
Image1.OnClick:=ImageClick;
Image1.OnMouseMove:=ImageMouseMove;

Answer 2

1楼的，你好，Button: TMouseButton;这个参数不要了吗？

Answer 3

1楼的高手能不能回答一下，为什么Button: TMouseButton这个参数不要了？