System Delphi

  1. Home
  2. Delphi
  3. System
  4. How to move windows without a caption bar
Title: How to move windows without a caption bar
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0);
end;