Появление формы.

[Kukkk]

Здравствуйте, подскажите пожалуйста код для реализации постепенного появления формы? Я помню здесь такое было,но поиск не дает результатов.

[Alex21]

AlphaBlend и AlphaBlendValue

[Kukkk]

А как сделать чтобы постепенно появлялась? Не таймером же=)

[SERG1980]

Ну если те таймером то можешь через цикл с использованием sleep(ms:longint)+application.Proce ssMessages

[Alar]

Kukkk, а почему нет?

[Kukkk]

Был же обычный код в 3 строчки без таймера? Нету ни у кого? Лан..щас помучаю таймер..

[Alar]

Kukkk, если хотите что-нибудь найти у нас в клубе, то можете поюзать это - http://go.pblog.ru/

[SERG1980]

procedure TForm1.FormCreate(Sender: TObject);
begin
for o:=0 to 255 do
begin
form1.AlphaBlendValue:=i;
sleep(10)задежка в мс
application.ProcessMessages
end;

end;

[Alex21]

Ну а циклом чем плохо?

for i:= 1 to 255 do
 begin
 Application.ProcessMessages;
 AlphaBlendValue:=i;
 end;

[Kukkk]

SERG1980 СПАСИБО ОГРОМНОЕ!!