Criar um ciclo para abrir e fechar fotos no TImage

[hugohhh 0]

Montei um programinha no delphi, onde ao clicar em cada foto dos programas de calculo, instala o programa no HD, só que agora gostaria de colocar umas fotos demonstrativa de cada programa......

 

Cada vez que clicasse num BITBTN do programa, abriria um TImage e, este Image passaria algumas fotos.... tipo abrindo e fechando as fotos num deterinado tempo..... Gostaria de saber como fazer isso???

:blink:

 

Tentei fazer um video avi, só que como terei que gravar no cd, os programas de calculo limitaram muito o espaço no cd........ cada avi deu uns 16mb..... tm como passar divx, pois no Delphi 7 q uso não lê........

 

Montei tbm um GIf das fotos, só q este Delphi 7 não lê.........

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif B)

[apocalipse 0]

Salve hugohhhse entendi o que voce quer entao vai aeprocedure TForm1.Button2Click(Sender: TObject);begin nFile:= FindFirst( 'C:\Arquivos de programas\Arquivos comuns\Borland Shared\Images\Backgrnd\*.bmp', faAnyFile, sFile );end;procedure TForm1.Timer1Timer(Sender: TObject);begin nFile:= FindNext(sFile); Image1.Picture.LoadFromFile('C:\Arquivos de programas\Arquivos comuns\Borland Shared\Images\Backgrnd\'+sFile.Name); Memo1.Lines.Add(sFile.Name);end;Apocalipse :unsure:

[hugohhh 0]

Salve hugohhh

 

se entendi o que voce quer entao

vai ae

 

 

procedure TForm1.Button2Click(Sender: TObject);

begin

    nFile:= FindFirst( 'C:\Arquivos de programas\Arquivos comuns\Borland Shared\Images\Backgrnd\*.bmp', faAnyFile, sFile );

end;

 

 

 

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  nFile:= FindNext(sFile);

    Image1.Picture.LoadFromFile('C:\Arquivos de programas\Arquivos comuns\Borland Shared\Images\Backgrnd\'+sFile.Name);

    Memo1.Lines.Add(sFile.Name);

end;

 

 

Apocalipse :unsure:

<{POST_SNAPBACK}>

>>>>Acho q o q você me passou deve servir...... como faz muito tempo q aprendi o Delphi e, como não estava praticando, esqueci muita coisa.......

Vou testar estes comando para ver s realmente é o que estou pretendendo fazer.....

Obrigado...... Apocalipse........

flwss

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

>>>>