Drag the mouse form

1. Mouse drag window in client area
Overloaded Message Function procedure Wmnchittest (var message:twmnchittest); Message wm_nchittest;
Procedure Tform1.wmnchittest (var message:twmnchittest);
Begin
inherited; Not missing
if (=message.result = htclient) Then
Message.result: = htcaption;
End

2. Mouse on the Panel drag the window
Write the following code in the Panel's OnMouseMove event:
Procedure Tform1.panel1mousemove (Sender:tobject; Shift:tshiftstate; X, Y:integer);
Begin
ReleaseCapture;
SendMessage (Self.handle, Wm_syscommand, Sc_move + 1, 0);
End

Drag the mouse form