banner rotativo
ola
gostaria de fazer um banner q ficasse trocando as imagens ... tipo eu tenho um Timage q fica lendo as imagens q estão em um determinado diretório ... assim basta eu jogar a imagen nesse diretório q ele troca o banner no programa ... alguém pode me dar uma dica ???
Valewww
gostaria de fazer um banner q ficasse trocando as imagens ... tipo eu tenho um Timage q fica lendo as imagens q estão em um determinado diretório ... assim basta eu jogar a imagen nesse diretório q ele troca o banner no programa ... alguém pode me dar uma dica ???
Valewww
Anonymous
Curtidas 0
Respostas
Theofernandes
11/04/2003
Adiciona um TIMER e um FileListBox no teu form.
Coloca nas propriedades do FileListBox visible=false.
public
ultimobanner : String;
no OnTimer:
var
aux : Integer;
begin
aux := 0;
while aux <> FileListBox1.Items.Count do
Begin
if (FileListBox1.Items.Strings[aux] = ultimobanner) or (ultimobanner = ´´) then
Begin
ultimobanner := FileListBox1.Items.Strings[aux+1];
image1.Picture.LoadFromFile(FileListBox1.Directory + ´\´ + ultimobanner);
break;
end;
aux := aux + 1;
end;
end;
Coloca o tempo que tu quiser que seja alterado o banner no Interval do Timer.
Abraço.
Coloca nas propriedades do FileListBox visible=false.
public
ultimobanner : String;
no OnTimer:
var
aux : Integer;
begin
aux := 0;
while aux <> FileListBox1.Items.Count do
Begin
if (FileListBox1.Items.Strings[aux] = ultimobanner) or (ultimobanner = ´´) then
Begin
ultimobanner := FileListBox1.Items.Strings[aux+1];
image1.Picture.LoadFromFile(FileListBox1.Directory + ´\´ + ultimobanner);
break;
end;
aux := aux + 1;
end;
end;
Coloca o tempo que tu quiser que seja alterado o banner no Interval do Timer.
Abraço.
GOSTEI 0