@Toms: Vielleicht habe ich meine Ausgangsbedingungen nicht ausführlich genug geschildert, deshalb hier mal mein Code vom Timerevent:
Delphi-Quellcode:
procedure TfrmMain.tmrAktualisierenTimer(Sender: TObject);
var AKontaktStatus:
array [1..10000]
of string;
i: integer;
begin
// Status der Kontakte abrufen
for i:=1
to lstKontaktliste.Items.Count
do begin
webKontaktStatus.Navigate('
http://localhost/status.php?id=' + AIDs[i]);
Wait(frmMain.webKontaktStatus);
case StrToInt((webKontaktStatus.Document
as IHTMLDocument2).body.innerHTML)
of
0: AKontaktStatus[i] := '
ON';
1: AKontaktStatus[i] := '
N/A';
2: AKontaktStatus[i] := '
OCC';
3: AKontaktStatus[i] := '
OFF';
end;
// of case
end;
// of for
// Statusliste aktualisieren
lstStatus.Clear;
for i:=1
to lstKontaktliste.Items.Count
do
lstStatus.Items.Add(AKontaktStatus[i]);
end;
Immer wenn das ausgeführt wird, verliert das momentan geöffnete Fenster (kann auch z.B.) ITunes oder der Windows-Explorer den Fokus und das Fenster mit der Listbox kommt in den Vordergrund.
@Luckie: Wie gesagt, das Problem besteht ja auch mit Fenstern außerhalb meiner Anwendung.