Buscar

Form surgir em fade

Código

//No Object inspector do Form, altere a propriedade "Alpha Blend" para "True". Troque também "Alpha Blend Value" para "10".

//- Insira um Timer (em System).
//-Troque "Interval" para "1".
//-No evento "OnTimer" do Timer, digite:
Form1.AlphaBlendValue:= Form1.AlphaBlendValue + 3;
if Form1.AlphaBlendValue= 255 then
begin
Timer1.Enabled:= false;
end;
end;

//Se quiser que o Form fique mais transparente, altere o AlphaBlend Value para um valor menor (em "if form1.AlphaBlendValue....").

Pronto!

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 16/01/11
Por: Mateus Gomes
Visualizada: 9560 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009