Постепенное появление формы с Alpha skins

[Марк Охман]

Привет) пошукал на форуме - нашел такую тему, но мне нужно что-нить проще. там сказано что подобный эффект можно сделать с alpa skins. Подскажите как??? Пожалуйста)

[mihali4]

При чем тут alpa skins ???
Все гораздо проще - ставим в заставке таймер и изменяем прозрачность формы...
Зачем мудрить ?

[Марк Охман]

А ларчик просто открывался))) AlphaBlend и AlpaBlendValue))) спасибо за совет))

[Марк Охман]

вот так раз( таким макаром сделал, поставил таймер, в нем написал сей код:

form1.AlphaBlendValue:=0;
while form1.AlphaBlendValue<>255 do
begin
form1.AlphaBlend:=true;
form1.AlphaBlendValue:=form1.AlphaBlendValue+5;
end;

Эффект - форма появляется как обычно, просто с небольшой задержкой. И как теперь даже не знаю... Срочно нужен совет...

Может дело в интервале таймера? попробовал все от 100 до 2000... ничего

[mihali4]

Вы что в событие таймера вставили ? Указанный вами код ??? О, боже...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Form1.AlphaBlendValue<255 then
Form1.AlphaBlendValue:=Form1.AlphaBlendValue+5 else
Timer1.Enabled:=False;
end;

[Марк Охман]

теперь все работает))) спасибо огромное.
посмотрел ваш код и понял свою ошибку - у меня каждый таймер делал весь этот процес... простите за тупость) еще раз большое спасибо)

[Жека_]

AnimateWindow(Fomr1.handle, 2000, aw_blend);

[FaTaL]

ИМХО лучше использовать AnimateWindow ()

[Человек_Борща]

Демки посмотреть не судьба? Там все это есть.