主要在窗体的WM_MOVE事件中处理
主要在窗体的WM_MOVE事件中处理
每个窗体单独处理
class TFormNow:public TForm
{
...
private:
void __fastcall WMFormMove(TMessage Msg);
public:
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_MOVE,TMessage,WMFormMove)
END_MESSAGE_MAP(TForm)
}
void __fastcall TFormNow::WMFormMove(TMessge Msg)
{
if(abs(FormMain->Top+FormMain->Height-FormNow->Top)<20)
{
bCanTogather=true;
FormNow->Top=FormMain->Top+FormMain->Height;
FormNow->Left =FormMain->Left ;
FormNow->Width =FormMain->Width;
}
else
{
bCanTogather=false;
}
}