|
Как анимировать появление формы, как будто она развертывается из середины?
Автор: KAV
Исходная ссылка: - - -
При открытии формы (OnCreate):
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);
Форма будет как будто развертываться из середины.
А чтобы она при закрытии свертывалась в свою середину, то пишем в OnClose:
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); // меняется только последовательность последних параметров
|