拖动窗体
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND,$f012,0);
示例:
procedure TForm.Image1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND,$f012,0);
end;
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND,$f012,0);
示例:
procedure TForm.Image1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND,$f012,0);
end;