Cual es el evento que se ejecuta al mover un formulario

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