Vou abrir hoje a seção pascal (logo que pouca coisa foi postada nesta linguagem) Vou postar um simples sisteminha que faz fade em form. Bem básico utilizando AlphaBlendValue e um loop com sleep ..


Segue aqui o código
// Apenas crie dois frames:
// frmSplash e TfrmProg
procedure TfrmProg.FormCreate(Sender: TObject);
begin
//criar o splash
frmSplash := TfrmSplash.Create (Application);
frmSplash.Show;
frmSplash.Update;

frmProg.visible := false; // deixar o main invísivel enquanto inicia
// efeito fade no splash
while frmSplash.AlphaBlendValue < 255 do
begin
sleep(10);
frmSplash.AlphaBlendValue:= frmSplash.AlphaBlendValue + 2;
end;

//fechar splash
frmSplash.free;

//mostrar o main de volta
frmProg.visible := true;
end;
end


Que também pode ser acessado por meu pastebin.

Criado por Bruno da Silva

0