Dragging a form with no titlebar

[code lang=”delphi”]// Declare the procedure
procedure WMCHitTest(var msg : TMessage); message WM_NCHITTEST;

procedure TForm1.WMCHitTest(var msg : TMessage);
begin
inherited;
// If the client (form) recieved a “mousedown” event
// then we process it and let Windows think we
// clicked on the titlebar.
If msg.Result = htClient Then
msg.Result := htCaption;
end;
[/code]

[tags]Delphi, Forms[/tags]