Mover el formulario

[ecfisa]

Hola andres_89.

Otra alternativa mas.

Header:

...
private:	
  void __fastcall WMNCHitTest(TMessage& Msg);
  BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_NCHITTEST, TMessage, WMNCHitTest)
  END_MESSAGE_MAP(TForm)
...

.cpp

...
void __fastcall TForm1::WMNCHitTest(TMessage &Msg)
{
   TForm::Dispatch(&Msg);
   if (Msg.Result == HTCLIENT) 
     Msg.Result = HTCAPTION;
}
...

Saludos