SlideShow (macrosubstituição)

Delphi

23/03/2004

Olá pessoal,

preciso fazer um slideshow com umas 40 fotos.
criei um form com vários componentes Image e um Timer.
quando o timer ´dispara´ a rotina muda a propriedade Visible do Image.
ou seja tenho do Image1 até o Image40... e uma variável contador.
no clipper faria assim: ´Form2.Image[u:504a5d6039]&contador[/u:504a5d6039].Visible:=True´
acho que se chama macrosubstituição.
alguém como fazer isso no delphi ???
ou alguem tem alguma outra ideia ???
valeu!


Rubensgalvanijr

Rubensgalvanijr

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

23/03/2004

TImage(Form.FindComponent(´Image´ + IntToStr(Contador)).Visible := True;


[color=blue:58fc178024]Form.FindComponent:[/color:58fc178024] procura um componente pelo nome

[color=green:58fc178024]TImage:[/color:58fc178024] é um Type Cast, para podermos acessar a propriedade Visible

tem um componente muito bom para fazer transição de imagens, se eu encontrar-lo posto aqui, com certeza você iria gostar dele :)


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

23/03/2004

Aqui: http://www.clubedelphi.com.br/aplicativos/aplicativos13.htm


GOSTEI 0
Rubensgalvanijr

Rubensgalvanijr

23/03/2004

Valeu Marcelo,

o componente é bacana, funciona legal...
mas o código que vc tinha me passado não funcionou direito.
escrevi assim: ´ TImage(Form2.FindComponent(´Image´+IntToStr(Contador)).Visible:=True;´
declarei contadro como integer.
aparece os seguintes erros:
[Error] Slide.pas(85): Undeclared identifier: ´Visible´
[Error] Slide.pas(85): Incompatible types: ´TImage´ and ´Boolean´
tenho que fazer mais alguma declaração ???
vc sabe pq não funcionou ???
queria agradecer vc novamente.
sua ajuda foi valiosa. valeu mesmo!!!


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

23/03/2004

Detalhe bobo... :? :)

TImage(Form.FindComponent(´Image´ + IntToStr(Contador))[color=red:8de9127076][b:8de9127076])[/b:8de9127076][/color:8de9127076].Visible := True;

Acontece hehe


GOSTEI 0
Rubensgalvanijr

Rubensgalvanijr

23/03/2004

cara, tb não notei isso...
valeu... vc é fera mesmo!
agora funcionou beleza.


GOSTEI 0
Marco Salles

Marco Salles

23/03/2004

tem um componente muito bom para fazer transição de imagens, se eu encontrar-lo posto aqui, com certeza você iria gostar dele


Aqui: http://www.clubedelphi.com.br/aplicativos/aplicativos13.htm


Não estou conseguindo acessar a esta página , alguem sabe o Like correto

:?: :?: :?: :?:


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

23/03/2004

[url]http://www.clubedelphi.net/aplicativos/aplicativos13.htm[/url]


GOSTEI 0
Marco Salles

Marco Salles

23/03/2004

Marco salles citou;
Citação: tem um componente muito bom para fazer transição de imagens, se eu encontrar-lo posto aqui, com certeza você iria gostar dele Citação: Aqui: http://www.clubedelphi.com.br/aplicativos/aplicativos13.htm Não estou conseguindo acessar a esta página , alguem sabe o Like correto


emerson.en Citou:
http://www.clubedelphi.net/aplicativos/aplicativos13.htm


Obrigado pela força :P :P :P


GOSTEI 0
POSTAR