Текущий архив: 2003.04.07;
Скачать: CL | DM;

Вниз

Эффекты при открытии формы.   Найти похожие ветки 

← →
_Split_   (2003-03-28 20:15) [0]

Подскажите пожалуйста (лучше примером), как сделать красивые эффекты при открытии формы. Например как на дисле Reanimator (если кто видел).

---

← →
pavel_k   (2003-03-28 20:22) [1]

Можешь попробовать так (это конечно не Reanumator). Но, по-моему не пахает в Windows 2k и XP:

procedure TForm1.FormShow(Sender: TObject);
var
RectSmall,RectNormal:TRect;
begin
RectSmall:=Rect(0,0,0,0);
RectNormal:=Form1.BoundsRect; DrawAnimatedRects(GetDesktopWindow,IDANI_CAPTION,RectSmall,RectNormal);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
RectSmall,RectNormal:TRect;
begin
RectSmall:=Rect(0,0,0,0);
RectNormal:=Form1.BoundsRect; DrawAnimatedRects(GetDesktopWindow,IDANI_CAPTION,RectNormal,RectSmall);
end;


---

Страницы: 1 вся ветка

Текущий архив: 2003.04.07;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.039 c