Fórum SlideShow (macrosubstituição) #221728
23/03/2004
0
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
Curtir tópico
+ 0Posts
23/03/2004
Marcelo Saviski
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
23/03/2004
Marcelo Saviski
Gostei + 0
23/03/2004
Rubensgalvanijr
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
23/03/2004
Marcelo Saviski
TImage(Form.FindComponent(´Image´ + IntToStr(Contador))[color=red:8de9127076][b:8de9127076])[/b:8de9127076][/color:8de9127076].Visible := True;
Acontece hehe
Gostei + 0
23/03/2004
Rubensgalvanijr
valeu... vc é fera mesmo!
agora funcionou beleza.
Gostei + 0
13/11/2005
Marco Salles
Não estou conseguindo acessar a esta página , alguem sabe o Like correto
:?: :?: :?: :?:
Gostei + 0
16/11/2005
Emerson Nascimento
Gostei + 0
26/11/2005
Marco Salles
emerson.en Citou:
Obrigado pela força :P :P :P
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)