Gestionar el evento OnMouseMove de la barra de titulo del Form

[[escafandra]]

Ejemplo simple reescribiendo la función virtual WndProc de un formulario:

Código PHP:

#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
private:    // User declarations
protected:
  virtual void __fastcall WndProc(TMessage& msg);
public:        // User declarations
  __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif 


Código PHP:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WndProc(TMessage& msg)
{
  if(msg.Msg == WM_MOVING){
    TRect *R = (TRect*)msg.LParam;
    if(R->Left < 50){
      R->Left = 50;
      R->Right = Left + Width;
    }
  }
  TForm::WndProc(msg);
} 


Este ejemplo impide desplazar el formulario a la izquierda más allá del valor 50.


Saludos.

[aguml]

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.

[aguml]

He intentado editar el mensaje anterior pero he llegado tarde por muy poquito y ya no me dejaba asi que lo pongo aqui. Ya he conseguido hacerlo. Al final coji papel y lapiz y lo plantee sobre el papel y me di cuenta de los fallos y asi quedó:
En el .h:

Código PHP:

private:    // User declarations
   //Necesarias para arrastrar la imagen por el ScrollBox
   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 = FormPadre->Left + Width + 5;
      }else if(pCurrentRec->right > FormPadre->Left + FormPadre->Width - 5){
         pCurrentRec->left = FormPadre->Left + FormPadre->Width - 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 = FormPadre->Top + FormPadre->Panel->Height + Height + 32;
      }else if(pCurrentRec->bottom > FormPadre->Top + FormPadre->Height - 5){
         pCurrentRec->top = FormPadre->Top + FormPadre->Height - Height - 5;
         pCurrentRec->bottom = FormPadre->Top + FormPadre->Height - 5;
      }
      Caption = "LeftBeforeMove: " + IntToStr(pCurrentRec->left) +
                "  TopBeforeMove: " + IntToStr(pCurrentRec->top);
   }
} 


La verdad es que ahora me gustaria meterme con el codigo que hiciste en delphi que con el uso de las MDI lo veo poco util pero muy interesante y me ha picado el gusanillo y quiero pasarlo a C++Builder para entender su funcionamiento. Muchas gracias por todo.

[[escafandra]]

Pues la traducción del ejemplo que te puse al sistema de tratamiento de mensajes tipo delphi sería esta:

Código PHP:

#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
struct TWMMoving{
  DWORD Msg;
  int   Edge;
  PRect DragRect;
};

class TForm2 : public TForm
{
__published:    // IDE-managed Components
private:
  __fastcall WMMoving(TWMMoving &Message);
public:        // User declarations
  __fastcall TForm2(TComponent* Owner);

BEGIN_MESSAGE_MAP
  VCL_MESSAGE_HANDLER(WM_MOVING, TWMMoving, WMMoving)
END_MESSAGE_MAP(TForm)
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
#endif 


Código PHP:

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;


//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------

__fastcall TForm2::WMMoving(TWMMoving &Message)
{
  if(Message.DragRect->Left < 50){
    Message.DragRect->Left = 50;
    Message.DragRect->Right = Left + Width;
  }
} 


Saludos.

[aguml]

Ok muchas gracias. Seguiré investigando.