Блог IT для Windows

Для того, чтобы открыть форму из середины, в обработчике событий открытия формы необходимо написать следующий код:

void __fastcall TForm1::FormCreate(TObject *Sender)
{//открытие формы из середины
TRect r1,r2;
r1 = Rect(Left+Width/2,Top+Height/2,Left+Width/2,Top+Height/2);
r2 = BoundsRect;
DrawAnimatedRects(Handle,IDANI_CAPTION,&r1,&r2);
}

Соответственно для закрытия в обработчике событий закрытия формы необходимо написать следующий код:

void __fastcall TPagesDlg::FormCloseQuery(TObject *Sender, bool &CanClose)
{
TRect r1,r2; //закрытие в середину
r1 = Rect(Left+Width/2,Top+Height/2,Left+Width/2,Top+Height/2);
r2 = BoundsRect;
DrawAnimatedRects(Handle,IDANI_CAPTION,&r2,&r1);
}