Delphi dicas

Efeito de abertura no form (animatewindow)

//No botão que chama o form2 por exemplo...



procedure TForm1.BitBtn1Click(Sender: TObject);

begin

        Form2.Hide;

        AnimateWindow (Form2.Handle, 1000, AW_BLEND);

        Form2.Show;//Tem que ser apenas SHOW;

end;





// Ok, Márcio Leandro

//marciolbp@hotmail.com

por : Márcio Leandro B. P.