Delphi Source Code - How to move windows without a caption bar

Code Category

ActiveX Components Database Files Forms Graphic Internet/Lan Math Miscellaneous Multimedia Printing Strings System Information Windows

Migrate Goldmine to Salesforce

Delphi source code for Forms >> Move windows without a caption bar

Category: Forms
Title: Move windows without a caption bar
Date added: 15.03.2006
Hits: 1597

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0);
end;

Related Delphi Source Code:

1. How to make a window borderless while dragging? (1496 Hits)

2. How to make a desktop screenshot? (2472 Hits)

3. How to get a PopupMenuItems Parent? (1449 Hits)

4. How to prevent a Form from Moving or Resizing? (1621 Hits)

5. How to make a 2-line hint? (1645 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.