Mega Code Archive

 

Categories / Delphi / System

 

Move windows without a caption bar

Title: 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;