Cual es el evento que se ejecuta al mover un formulario

[MARX]

Muchísimas gracias a los dos por las respuestas, son unos genios.
Estoy intentando ponerlo en practica. El primer método me tira varios errores, el segundo me anduvo pero con un problemita.
Solo ejecuta lo que está en el if cuando hago click en la barra para moverlo. Mientras estoy moviendo el formulario no ejecuta el bucle hasta que no vuelvo a hacer click en la barra de arriba.
¿Habrá alguna manera de que vaya actualizando los valores de Left y Top del formulario 2 a medida que vaya moviendo el formulario 1?

[ecfisa]

Hola.

Otra opción mas:
.h

Código PHP:

class TForm1 : public TForm
{
__published:    // IDE-managed Components
  void __fastcall FormClick(TObject *Sender);
private:    // User declarations
  void __fastcall WMNCHitTest(TMessage& Msg);
protected:
  BEGIN_MESSAGE_MAP
  MESSAGE_HANDLER(WM_NCHITTEST, TMessage, WMNCHitTest)
  END_MESSAGE_MAP(TForm)
public:        // User declarations
  __fastcall TForm1(TComponent* Owner);
}; 


.cpp

Código PHP:

void __fastcall TForm1::WMNCHitTest(TMessage &Msg)
{
   // mover el segundo form
   Form2->Left = Form1->Left + Form1->Width;
   Form2->Top  = Form1->Top + 20;
   
   if (Msg.Result == HTCLIENT) 
     Msg.Result = HTCAPTION;
   TForm::Dispatch(&Msg);
} 


Saludos

[MARX]

Muchas gracias.
Que diferencia tiene este ultimo con los otros?
En los otros uno muestra el mensaje cuando se hace click en la barra y el otro es cuando se mueve el formulario.
Este código cuando se ejecutaría?

[ecfisa]

Hola Jorge.

Podes encontrar la descripción (y diferencias) en la referencia de Microsoft:

• WM_MOVING
• WM_SYSCOMMAND (*)
• WM_NCHITTEST

(*) SC_DRAGMOVE sólo funciona con descendientes de TWinControl. No funciona por ejemplo, con un TImage.

Saludos

[[Lepe]]

Yo también miraría WM_WINDOWPOSCHANGING y WM_WINDOWPOSCHANGED quizás te sean de utilidad. Yo los he usado para adosar una ventana a la ventana que se está arrastrando, (Como la ventana de TeamViewer de contactos).