procedure TForm1.Button1MouseDown(Sender:
TObject; Button: TMouseButton;
Shift: TShiftState; X, Y:
Integer);
const
SC_DragMove
= $F012;
begin
Begin
ReleaseCapture;
Button1.perform(WM_SysCommand,
SC_DragMove, 0);
End;
end;
时间: 2024-08-19 06:21:47