Author: David Johannes Rieger

You want to move your TForm with a mouse click on the client area? No Problem.

Answer:

Insert the following code in the OnMouseDown-Event of your form:

1   procedure LetMoveWindow(Window: TControl);
2   begin
3     ReleaseCapture;
4     Window.Perform(WM_SysCommand, 61458, 0);
5   end;
6   
7   procedure TForm1.FormMouseDown(Sender: TObject);
8   begin
9     LetMoveWindow(Self);
10  end;