Gestionar el evento OnMouseMove de la barra de titulo del Form

[aguml]

Lo siento pero me pierdo porque no tengo ni idea de delphi y aunque se parece pero me pierdo. Ahora mismo tengo esto:
En el .h:

Código PHP:

private:    // User declarations
   void __fastcall WMSysCommand(TWMSysCommand &Msg);
protected:
  BEGIN_MESSAGE_MAP
  VCL_MESSAGE_HANDLER(WM_SYSCOMMAND, TWMSysCommand, WMSysCommand)
  END_MESSAGE_MAP(TForm) 


En el .cpp:

Código PHP:

void __fastcall TFormHijo::WMSysCommand(TWMSysCommand &Msg)
{
   switch (Msg.CmdType) {
      case SC_MOVE:
         ShowMessage("Moviendo Form");
         break;
   }
   DefaultHandler(&Msg);
} 


Me interesaria mucho tu codigo pero para c++builder ya que antes de lo que estoy haciendo estuve intentando lo mismo que tu haces en tu codigo y lo consegui a medias.

[[escafandra]]

Estas manejando el mensaje WM_SYSCOMMAND y debes manejar WM_MOVING en la ventana child que se está moviendo. Este mensaje se produce antes de que el movimiento de ejectue, por lo que podrás evitar salirte del límite sin el efecto que comentabas más arriba, al mover deprisa el ratón.

Empezado por msdn

lParam
A pointer to a RECT structure with the current position of the window, in screen coordinates. To change the position of the drag rectangle, an application must change the members of this structure.

Ahora no puedo ponerte un ejemplo en Builder cuando llegue a casa, si puedo, te lo pongo.

Saludos.

[aguml]

Ok muchísimas gracias. Intentare seguir probando a ver que consigo pero la verdad es que el que no sabe es como el que no ve y voy dando palos de ciego.

[[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.