怎样实现鼠标拖动？

Question

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

Answer 1

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

Answer 2

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

Answer 3

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;

Answer 4

附：
  iX0,iY0: integer;