Buscar

Efeito de abertura no form (animatewindow)

Código

//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

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Windows
Adicionada dia: 26/02/07
Por: Márcio Leandro B. P.
Visualizada: 10018 vezes

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