Moving a form with a mouse click on client area (Views: 24)
You want to move your TForm with a mouse click on the client area? No Problem.
Insert the following code in the OnMouseDown-Event of your form:
procedure LetMoveWindow(Window: TControl);
Window.Perform(WM_SysCommand, 61458, 0);
procedure TForm1.FormMouseDown(Sender: TObject);
<< Back to main page