Hola andres_89.
Otra alternativa mas.
Header:
Código:
...
private:
void __fastcall WMNCHitTest(TMessage& Msg);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_NCHITTEST, TMessage, WMNCHitTest)
END_MESSAGE_MAP(TForm)
...
.cpp
Código:
...
void __fastcall TForm1::WMNCHitTest(TMessage &Msg)
{
TForm::Dispatch(&Msg);
if (Msg.Result == HTCLIENT)
Msg.Result = HTCAPTION;
}
...
Saludos
