请教各位：一个自动生成image，能否有后如何实现imagemousemove的功能？？

Question

procedure tform1.onbutton1click(sender)
begin
image.onmousemove:=imagemm(Tobject(image));
end;procedure tform1.imagemm(sender:object)
begin
//
//
end;

Answer 1

就是你希望onmousemove触发的事件啊

Answer 2

先定义一个Image的过程OnMouseMove如下：
procedure TForm1.ImgMouseMove(Sender: TObject; Shift: TShiftState;
  X,Y: Integer);
begin
  Caption:=IntToStr(X)+'/'+IntToStr(Y);;
end;
你动态生成的TImage 的 Name 为：ManulCreateImage　则如下就可以了：
 ManulCreateImage.OnMouseMove:=ImgMouseMove;这样就行了。不过注意你自己定义的OnMouseMove过程要和标准的
 Image.OnMouseMove　一致否则会出错的。