В этой статье мы разберем возможность сделать форму прозрачной (или вообще невидимой) Для этого используется два свойства формы: AlphaBlend и AlphaBlendValue AlphaBlend отвечает за возможность исправлять прозрачность формы (True или False)
AlphaBlendValue отвечает за степень прозрачнасти (от 0 до 255)
Если степень прозрачности поставить "0", то форма будет невидимой, если поставить "255", то форма будет обсолютно непрозрачна.
Эти свойства можно использовать в плавном появление формы. Для этого создадим переменную: var Form1: TForm1; val : byte;
Теперь прописываем событие OnCreate формы:
procedure TForm1.FormCreate(Sender: TObject); begin val:=0; AlphaBlend := True; AlphaBlendValue := val; end; Дальше добавляем на форму компонент "Timer", а его свойство "Interval" ставим значение "5" В событие OnTime прописываем: procedure TForm1.Timer1Timer(Sender: TObject); begin val:=val + 1; if val <= 254 then AlphaBlendValue := val else begin val := 0; Timer1.Enabled := False; end; end;
Запускаем программу, и у нас плавно появляется форма.
Скачать исходник можно здесь
|