Hola Jorge.
Podrías capturar el mensaje
WM_MOVING, vg.:
.h
Código PHP:
...
class TForm1 : public TForm
{
__published: // IDE-managed Components
private: // User declarations
void virtual __fastcall WMMoving(TMessage& Message);
protected:
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_MOVING, TMessage, WMMoving);
END_MESSAGE_MAP(TForm);
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
.cpp
Código PHP:
...
void __fastcall TForm1::WMMoving(TMessage& Message)
{
if (Message.Msg == WM_MOVING)
ShowMessage("Moviendo");
DefaultHandler(&Message);
}
O también el mensaje
WM_SYSCOMMAND como te indicó
roman:
.h
Código PHP:
...
class TForm1 : public TForm
{
__published: // IDE-managed Components
private: // User declarations
void virtual __fastcall WMSysCommand(TWMSysCommand &Message);
protected:
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_SYSCOMMAND, TWMSysCommand, WMSysCommand)
END_MESSAGE_MAP(TForm)
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
.cpp
Código PHP:
...
const SC_DRAGMOVE = 0xF012;
void __fastcall TForm1::WMSysCommand(TWMSysCommand &Message)
{
if (Message.CmdType == SC_DRAGMOVE)
ShowMessage("Moviendo");
DefaultHandler(&Message);
}
Saludos
