Прозрачность

← →
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]

Спасибо. :)

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