Image如何实现鼠标的拖动？

Question

如题？
谢谢！

Answer 1

var
  OldPoint: TPoint;procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
  begin
    TControl(Sender).Left := TControl(Sender).Left + (X - OldPoint.X);
    TControl(Sender).Top := TControl(Sender).Top + (Y - OldPoint.Y);
  end;
end;procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  OldPoint := Point(X, Y);
end;

Answer 2

简单的办法就是这样了，如果想不闪烁的话，就把图片放panel上，然后用图片拖动panel

Answer 3

DoubleBuffered := True; // 开窗体的双缓冲