How to Drag a Form from the Surface Instead of a Head
Delphi projects are developed by Borland and used in the class library called VCL (Visual Component Library). In these courses, some classes in this class library will be given. You will find that you can develop desktop applications very quickly after your Delphi studies and research. You can benefit from the examples on our site, you can experience support by writing comments on the subject under the subject.
In Delphi, add the following code to Form's MouseDown event to move the form from the entire surface instead of the header.
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Form1.perform(WM_SYSCOMMAND, $F012, 0); end;