求使得图片移动代码

[hittyecho]

求一代码，在DELPHI中插入一付图片,（即用Additional—Image）使之在运行时，将鼠标点中图片按住左键不放能任意拖动图片！

[hittyecho]

我所使用的是DELPHI5,写了几次代码都是错误的,有那位高手会的话请帮忙!谢谢

[angelface]

Image 的OnMouseMove, OnMouseDown里写代码，

[renzhe2003]

delphi 家园有代码

[hittyecho]

有哪位高手帮帮忙啊??????
怎样才能实现基于delphi的图像移动呢?

[budded]

DoubleBuffered := True;

[echoxu]

var
Form1: TForm1;
origin:Tpoint;
image_left:integer;
image_top:integer;
canmove:boolean;

implementation

{$R *.DFM}

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
begin
origin.x:=X;
origin.y:=Y;
image_left:=image1.left;
image_top:=image1.top;

canmove:=true;
end;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if canmove then
begin

image1.left:=image_left+(X-origin.x);
image1.top:=image_top+(Y-origin.y);
end;
end;

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
canmove:=false;
end;

[hittyecho]

谢谢楼上,我也是如此编绎的.但我曾用了IMAGE的Mouse事件,但是图像闪铄,后来也试着用Label的Mouse事件,但还是会闪铄,不知何解?

[hittyecho]

谢谢楼上的!!!!!