Delphi7 用鼠标移动窗口代码示例

按下鼠标左键后,移动鼠标的时候移动窗体

VID_20230608_085117

implementation

var
 MouseDownFlag : boolean;
 MousePoint : TPoint;
 MouseX,MouseY :integer;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
MouseDownFlag:=true;
MouseX:=X;
MouseY:=Y;
end;

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

begin

if MouseDownFlag then
 begin
  GetCursorPos(MousePoint);
  self.Left := MousePoint.X - MouseX;
  self.Top := MousePoint.Y - MouseY;
  StatusBar1.Panels[0].Text := inttostr(MousePoint.X) +  'x' + inttostr(MousePoint.Y);
  StatusBar1.Panels[1].Text := inttostr(X) +  'x' + inttostr(Y);
 end;

end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
MouseDownFlag:=false;
end;