Movendo um Form sem barra de título
Forms que não possuem barra de título (as que têm a propriedade BorderStyle setada em bsNone)
podem ser movidas, através da rotina abaixo, que permite que se clique no form para poder mover a janela).
Primeiramente, vá na seção public da classe que define o form, e digite a linha abaixo:
procedure WMNCHitTest(var M: TWMNCHitTest); message WM_NCHitTest;
Na seção implementation da unit, digite a seguinte rotina:
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;
