[TUTORIAL] Como executar animações em Flash em aplicações Delphi

[' hard~* 1]

Neste artigo veremos como fazer para executar animações criadas em Flash em aplicações Delphi, podendo assim tornar a parte visual das nossas aplicações mais agradável para o usuário

Também pode ser bastante interessante colocar uma animação na Splash Screen das aplicações.

A primeira coisa a ser feita é obter a unit que possui a classe , que iremos utilizar para mostrar a animação. Após abrirmos o Delphi, e criar um novo VCL Forms Aplication, vamos até o Menu Component/Import Component. Abrirá uma tela mostrando a opção de componente que queremos importar, devemos selecionar Import ActiveX Control e clicamos em Next (conforme Figura 1).

 

 

Após devemos escolher o ActiveX que queremos importar. Devemos selecionar o Shockwave Flash (Conforme Figura 2).

 

 

Na próxima tela que será mostrada irá conter as opções para transformar esta unit em um componente (que poderemos abordar em um próximo artigo). O interessante é que podemos selecionar a pasta onde será gravada a unit do Shockwave Flash. No caso deste exemplo que estou fazendo vou deixar no local selecionado pelo Dlephi automaticamente, que é em C:\Users\NOME_DO_USUARIO\Documents\RAD Studio\9.0\Imports (Conforme Figura 3).

 

 

Podemos clicar em Next novamente, e aparecerá a opção de criar uma unit com a classe TShockwave Flash, ou adicionar a algum package. Vamos deixar marcado a opção de criar uma unit, e podemos clicar em Finish (confome Figura 4). Pronto, agora temos a unit com a classe TShockwave Flash.

 

 

Adicionaremos a unit do TShockwave Flash ao nosso projeto através do atalho Alt + F11. Vamos agora escrever o código para executar a nossa animação. Podemos colocar para este exemplo apenas um TButton no ****, que irá conter o seguinte código, mostrado na Figura 5.

 

 

Não podemos esquecer de liberar este objeto da memória após seu uso, com o comando Flash.Free. Agora é só executar a aplicação e fazer o teste. A aplicação de teste foi criada no Delphi XE2, e este código foi testado nas versões XE e 2007.

 

Créditos : Luciano Lumertz