모니터 개수 변경으로 인해 화면 밖으로 벗어난 화면 옮기기

참고링크: http://cbuilder.borlandforum.com/impboard/impboard.dll?action=read&db=bcb_tip&no=1094

코드 몇 줄 안되지만 필요할때는 귀찮아서 안하게 되어 미리 적어 놓음.

링크의 코드를 내맘대로 줄이고 테스트는 안한거라 적용 후 테스트 필요.

void __fastcall AdjustBounds(TCustomForm *AForm)

{

    TRect rtForm = AForm->BoundsRect;

    for (int i = 0; i < Screen->MonitorCount; i++)

        if (PtInRect(Screen->Monitors[i]->BoundsRect, TPoint(rtForm.Left, rtForm.Top)))

            return;

    AForm->SetBounds(rtForm.Left + Screen->DesktopRect.Left - rtForm.Left, // or 0,

        rtForm.Top + Screen->DesktopRect.Top - rtForm.Top, // or 0,

        AForm->BoundsRect.Width(),

        AForm->BoundsRect.Height());

}