Ajuda - Efeito Fade ( Delphi )

[Boy Fenix 1]

Olá,

- alguem ai me ajuda a fazer um efeito Fade Out ou In em um componente ??? !

Não no Form, eu quero ajuda no Panel, Toolbar essas coisas !

[Ryokusei 28]

Tipo colocar transparência nos objetos até eles sumirem?

Ou qualquer efeito de Fade Out serve?

[Boy Fenix 1]

Ahh pode ser ( tipo ele vai aparecendo ou sumindo suavemente ) entende ?

[Ryokusei 28]

AnimateWindow(Memo1.Handle, 1000, AW_HOR_NEGATIVE+AW_HIDE);

 

Vc substituiu o Memo1 pelo objeto de janela que vc quiser. Mas deve ser obrigatóriamente um objeto de janela.

[Boy Fenix 1]

Tá mais ele vai pro lado e como eu faço ele para subir e descer !?

[Ryokusei 28]

Muda a constante...

 

AnimateWindow(Memo1.Handle, 1000, AW_VER_POSITIVE+AW_HIDE);

AnimateWindow(Memo1.Handle, 1000, AW_VER_NEGATIVE+AW_HIDE);

AnimateWindow(Memo1.Handle, 1000, AW_CENTER+AW_HIDE);

[Boy Fenix 1]

Certo esses codigos ai que vc passo deu certo ! mais vamos falar assim ! esse ta visible e depois some ! tem como inverter o processo ! estar invisivel e colocar o codigo e ficar para visivel ?

[CheaterMX 19]

Creio que é só Inverter o Código:

AnimateWindow(Memo1.Handle, 1000, AW_VER_NEGATIVE+AW_HIDE);

AnimateWindow(Memo1.Handle, 1000, AW_VER_POSITIVE+AW_HIDE);

 

Abraços,

CheaterMX

[~OwneR~ 8]

Na verdade é só remover o AW_HIDE...

AnimateWindow(Memo1.Handle, 1000, AW_CENTER);

[Boy Fenix 1]

@CheaterMX Não ! não teria sentido ( testei e num deu )

 

@~OwneR~ Assim não funcionaria ! :hm:

[~OwneR~ 8]

Err...?

Você testou antes de falar que não funciona?

A flag AW_HIDE é usada para desaparecer o objeto, sem ela o objeto irá aparecer...

 

Pra desaparecer:

AnimateWindow(Componente.Handle, 1000, AW_CENTER or AW_HIDE);

 

Pra aparecer:

AnimateWindow(Componente.Handle, 1000, AW_CENTER);

[Boy Fenix 1]

Testeii sim !

[Ryokusei 28]

Testa isso aqui:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Eu mesmo testei e SEI QUE FUNCIONA.