이미지 마우스로 움직이기

이미지 마우스로 움직이기

728x90

 

 

 

 

 

var

  gx, gy : integer;

 

procedure TForm1.image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

  if [ssLeft] = Shift Then Begin

    (Sender as TImage).Left := (Sender as TImage).Left+X-gx;

    (Sender as TImage).Top := (Sender as TImage).TOP+Y-gy;

  End;

end;

 

procedure TForm1.image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

  if button = mbLeft Then

  Begin

    gx := X;

    gy := Y;

  End;

end;