Wie kann ich 4 gelistete
HTML-Seiten aus einer Filelistbox timergesteuert in einem neuen Fenster mit Webbrowser öffnen und als "Webshow" abspielen lassen, sodass im 2-Sekunden-Takt alle
HTML-Seiten aus der Filelistbox nacheinander angezeigt werden?
--Wichtige Eigenschaften sind:
Filelistbox1.itemindex
Filelistbox1.items.count
Filelistbox1.Filename
Timer1.interval
Timer1.enabled
--Variablen sind:
pagename {enthält den Dateinamen der aktuell angezeigten Webseite}
n {Zähler für die anzuzuzeigende Webseiten}
Menüpunkt Webshow {in Form 1} zeigt Fenster Form2 an und startet Timer1, dann werden alle
HTML-Seiten angezeigt bis der Zähler "n" auch die letzte Seite gezeigt hat. Jetzt muss der Timer wieder angehalten werden. Meldung der letzten Seite in einem ShowMessage-Fensterchen. Danach automatisches Schließen der Form2
procedure TForm1.WebShow1Click(Sender: TObject);
var
pagename : string; {enthält den Dateinamen der aktuell angezeigten Webseite}
n : integer; {Zähler für die anzuzuzeigende Webseiten}
begin
form2.show; {öffnet zweites Fenster mit Webbrowser}
Timer1.Enabled := true;
FileListBox1.ItemIndex := [0..3]; {für die 4 anzuzeigenden
HTML-Seiten}
for n := 0 to FileListBox1.Items.Count -1 do
begin
if pos (FileListBox1.ItemIndex.....?????
then
??????????????????????????????? end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
???????
end;