movewindow beginPreX

Delphi(Pascal)codePreX,PreY:Integer;implementation{$R*.dfm}procedureTForm1.FormMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);beginPreX:=X;PreY:=y;end;pro

Delphi(Pascal) code PreX,PreY:Integer;implementation{$R *.dfm}procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);beginPreX:=X;PreY:=y;end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);beginif (PreX>0) and (PreY>0) thenMoveWindow(Self.Handle,Self.Left+X-PreX,Self.Top+Y-PreY,Self.Width,Self.Height,True);end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);beginPreX:=0;PreY:=0;end;贯爱巧2021-06-13 22:17:23Delphi(Pascal) code PreX,PreY:Integer;implementation{$R *.dfm}procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);beginPreX:=X;PreY:=y;end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);beginif (PreX>0) and (PreY>0) thenMoveWindow(Self.Handle,Self.Left+X-PreX,Self.Top+Y-PreY,Self.Width,Self.Height,True);end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);beginPreX:=0;PreY:=0;end;陈勃含2021-06-15 19:38:12Delphi(Pascal) code PreX,PreY:Integer;implementation{$R *.dfm}procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);beginPreX:=X;PreY:=y;end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);beginif (PreX>0) and (PreY>0) thenMoveWindow(Self.Handle,Self.Left+X-PreX,Self.Top+Y-PreY,Self.Width,Self.Height,True);end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);beginPreX:=0;PreY:=0;end;