图片的漫游

把图片放在一个Panel里面,设置图片的AutoSize:=true，Cursor:=crHandPoint;
通过改变Panel的大小控制图片可见内容的范围。
然后在图片的OnMouseMove写相关代码，控制图片的Top,Left值。

 

 

 

var
  CanMove : boolean;
  X1, Y1 : integer;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  CanMove := True;
  Image1.Cursor := crHandPoint;
  X1 := X;
  Y1 := Y;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  CanMove := False;
  Image1.Cursor := crDefault;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if CanMove then
    begin
    Image1.Left := Image1.Left + X - X1;
    Image1.Top := Image1.Top + Y - Y1;
    X1 := X;
    Y1 := Y;
    end;
end;