怎样实现鼠标拖动？

[huanglij]

用image控件加载了一个bmp图片，鼠标按下后让它随鼠标移动，鼠标松开后bmp图片也放下

[swayi21]

没用过
我想你可以在OnDragOver里和OnDragDrop里加代码。

[iivv]

在一般控件的onmousedown里写以下两句,可在运行时拖动控件!
releasecapture;
perform(handle,wm_syscommand,$f012,0);

[bengbeng24]

up

[sundayyoung]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
iX0:=X;
iY0:=Y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var iDeltaX,iDeltaY:integer;
begin
if ssLeft in Shift then
begin
iDeltaX:= X - iX0;
iDeltaY:= Y- iY0;
if iDeltaX<>0 then
Image1.Left:=Image1.Left+iDeltaX;
if iDeltaY<>0 then
Image1.Top:=Image1.Top+iDeltaY;
end;
end;

[sundayyoung]

附：
iX0,iY0: integer;