Como esmaecer um formulário?
Adicione no formulário um TTimer.
No evento OnCreate do formulário deixe conforme o exemplo abaixo:
1
2
3
4
5
6
7
| procedure TForm1.FormCreate(Sender: TObject);
begin
Self.AlphaBlend := True;
Self.AlphaBlendValue := 0;
Timer1.Interval := 15;
Timer1.Enabled := True;
end; |
procedure TForm1.FormCreate(Sender: TObject);
begin
Self.AlphaBlend := True;
Self.AlphaBlendValue := 0;
Timer1.Interval := 15;
Timer1.Enabled := True;
end;
No evento OnTimer do TTimer deixe conforme o exemplo abaixo:
1
2
3
4
5
6
7
8
9
10
| procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Self.AlphaBlendValue > 250) then
begin
Self.AlphaBlendValue := 255;
Timer1.Enabled := False;
end
else
Self.AlphaBlendValue := Self.AlphaBlendValue + 3;
end; |
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Self.AlphaBlendValue > 250) then
begin
Self.AlphaBlendValue := 255;
Timer1.Enabled := False;
end
else
Self.AlphaBlendValue := Self.AlphaBlendValue + 3;
end;
O efeito fica legal e você pode alterar o código para melhor
atender a sua necessidade, simplesmente ajustando o código
dentro do evento OnTimer do TTimer.
-
InfusTec
-
3.708 views
- 0 comentários
- 21 de março de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo