Muy bien, guiandome de tu codigo y de otro que encontré por la red en ruso pude sacar este codigo:
En el .h
Código PHP:
private: // User declarations
void __fastcall CatchDrag(TMessage &Msg);
protected:
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_MOVING, TMessage, CatchDrag);
END_MESSAGE_MAP(TForm)
En el .cpp:
Código PHP:
void __fastcall TFormHijo::CatchDrag(TMessage &Msg)
{
TForm::Dispatch(&Msg);
if(Msg.Msg == WM_MOVING){
PRECT pCurrentRec = PRECT(Msg.LParam);
//El 5 creo que es por los bordes de la ventana padre
if(pCurrentRec->left < FormPadre->Left + 5){
pCurrentRec->left = FormPadre->Left + 5;
pCurrentRec->right = Left + Width + 5;
}else if(pCurrentRec->right > FormPadre->Left + FormPadre->Width - 5){
pCurrentRec->left = FormPadre->Left + (FormPadre->Left + FormPadre->Width - (Left + Width) - 5);
pCurrentRec->right = FormPadre->Left + FormPadre->Width - 5;
}
//Tengo un Panel alineado arriba y el 32 creo que es porque es lo que mide
//barra de titulo de la ventana padre
if(pCurrentRec->top < FormPadre->Top + FormPadre->Panel->Height + 32){
pCurrentRec->top = FormPadre->Top + FormPadre->Panel->Height + 32;
pCurrentRec->bottom = Top + Height + 32;
}else if(pCurrentRec->bottom > FormPadre->Top + FormPadre->Height - 5){
pCurrentRec->top = FormPadre->Top + (FormPadre->Top + FormPadre->Height - (Top + Height)) - 5;
pCurrentRec->bottom = FormPadre->Top + FormPadre->Height - 5;
}
Caption = "LeftBeforeMove: " + IntToStr(pCurrentRec->left) +
" TopBeforeMove: " + IntToStr(pCurrentRec->top);
}
}
El problema que tengo es que me redimensiona la ventana hija y no veo la manera de solucionarlo. O sea que no me respeta el tamaño que tenia la ventana hija y es porque algo hago mal al darle el right y el bottom.