DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais

voltar

PARA QUEM GOSTA DE DELPHI

Como esmaecer um formulário?

Adicione no formulário um TTimer.

No evento OnCreate do formulário deixe conforme o exemplo abaixo:

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:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (Self.AlphaBlendValue &gt; 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.

Post Views: 3.776