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

Вниз

Прозрачность   Найти похожие ветки 

← →
VasRoG   (2006-06-06 21:42) [0]

Есть две формы - одна предполагается заставкой к проге т.е. является модальной, а вторая - основная форма программы. Как сделать постепенное "растворение" уже нетребующейся в определенный момент заставки до полного ее исчезновения и проявление скозь нее основной формы.

---

← →
unknown ©   (2006-06-06 21:50) [1]

Нужен таймер. Интервал где-то 200, по вкусу :)
Когда в определенный момент splash уже не требуется - делаем
 AlphaBlend     := True;
 Timer1.Enabled := True;
А в процедуре
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 AlphaBlendValue := AlphaBlendValue - 20;
 if AlphaBlendValue < 20 then
   Close;
end;

---

← →
VasRoG   (2006-06-06 22:42) [2]

Спасибо. :)

---

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

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

Наверх

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