动态添加可移动图片的问题

Question

我用Delphi中的TImage控件，使用了MOUSEMOVE，MOUSEDOWN，MOUSEUP消息对Image图片进行操作，可以在程序中，用鼠标左键对Image图片进行拖动，双机，单机的功能操作。可是不知道怎么才能动态添加图片，并且可以对动态添加的图片上进行拖动，双机，单机的功能操作。
初学，DELPHI。希望能指点下。

Answer 1

var MyImage:TImage;
begin
  MyImage:=TImage.Create(Self);
  MyImage.Parent:=Form1;
  MyImage.Picture.LoadFromFile('图片路径+文件名');
  MyImage.OnMouseMove:=MyImageMouseMove;
  ...
  ...
procedure TForm1.MyImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  //自己写代码
end;

Answer 2

2楼好象没明白我的意思你的那个方法我想单个Image是可以实现的我是想实现， 比如说 我点击一个按钮就动态出现一个能拖动的图片， 再点击一下按钮再出现一个能拖动的图片。都是动态的。  请指点一下。

Answer 3

读取图片MyImage.Picture.LoadFromFile('图片路径+文件名');
在onmousemove事件里写：
 var   
  MousePt   :   TPoint;//鼠标位置   
  begin   
  GetCursorPos(MousePt);   
  myimage.Left   :=   MousePt.X;   
  myimage.Top   :=   MousePt.Y;   
不知道是不是你想要的，希望对你有帮助吧。