void __fastcall TForm2::OnFormMove(TMessage& Msg)
{
if(Msg.Msg == WM_MOVING)
{
Rect =* (RECT*)Msg.LParam;
if(Left > Form1->Left + Form1->Width - 30 && Left < Form1->Left + Form1->Width + 30) // odleglosc od okna lewo-prawo
{
if(Top > Form1->Top - 30 && Top < Form1->Top + 30)
{
MoveWindow(Handle,Form1->Left + Form1->Width + 5,Form1->Top + 5,Form2->Width,Form2->Height,true);
// Left = Form1->Left + Form1->Width + 5;
// Top = Form1->Top + 5;
}
else if(Top + Height > Form1->Top + Form1->Height - 30 && Top + Height < Form1->Top + Form1->Height + 30)
{
MoveWindow(Handle,Form1->Left + Form1->Width + 5,Form1->Top + Form1->Height - Height - 5,Form2->Width,Form2->Height,true);
// Left = Form1->Left + Form1->Width + 5;
// Top = Form1->Top + Form1->Height - Height - 5;
}
else if(Top > Form1->Top + 30 && Top + Height < Form1->Top + Form1->Height - 30)
{
MoveWindow(Handle,Form1->Left + Form1->Width + 5,Form1->Top,Form2->Width,Form2->Height,true);
// Left = Form1->Left + Form1->Width + 5;
}
}
}
Sc(Msg);
}