Probleme mit aktualisierung bei TPageControl

[BBoy]

Ich nutze in meinem Programm mehere Tabs mit TPageControl.
Problem ist folgendes:
Auf TabSheet4 ist ein TwebBrowser der eine bestimmte seite ansurft, dort etwas aus dem html liest und es mir auf TabSheet1 als label anzeigen soll.
Das funktioniert aber nicht, die seite wird angesurft, der neue wert ist auch sichtbar im html, aber der label ändert sich nicht. erst wenn ich selbst auf tabSheet4 gehe und dort im Browser F5 drücke wird der label auf TabSheet1 aktualisiert.

Weis jemand woran das liegen könnte?

[mkinzler]

(Wie) Aktualisierst du das Label?

[BBoy]

ich weise einfach den neuen wert zu. label1.caption := "ÄTESTÄ"
habe es aber auch schon mit refresh oder repaint probiert, ohne erfolg.

Das Problem ist auch bei dem Twebbrowser auf TabSheet4, dass der nach dem programmstart nicht die seite ansurft. Obwohl ich auf einem anderen TabSheet den befehl dazu gebe. Das Programm surft die seite erst an wenn ich einmal auf dem TabSheet4 war. Danach funzt alles problemlos.

[semo]

Zitat:

(Wie) Aktualisierst du das Label?

Poste bitte doch mal den Code wie du die Aktualiserung des Labels durchführst.

[BBoy]

Das Problem mit dem label hat sich erstmal erledigt.

Aber das Problem mit dem Twebbrowser besteht noch:
Auf TabSheet5 ist ein Twebbrowser. Das Programm startet mit TabSheet1 auf dem ich ein Button klicke der den Twebbrowser zu einer url surfen lassen soll. das funktioniert aber nicht, der Browser surft erst dahin wenn ich auf das TabSheet4 gehe.

Delphi-Quellcode:

procedure TForm1.Button13Click(Sender: TObject);
begin
wb1.navigate('www.test.de');
end;

[semo]

Die Webseite wird bereits geladen, auch ohne dass du zum entsprechenden Tabsheet wechseln musst.

Hier sollte dir das Event OnWebBrowser1NavigateComplete weiterhelfen.
In diesem Event kannst dud ann auf die fertig geladene Webseite zugreifen und deinen Wert auslesen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.navigate('www.test.de');
end;

procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Caption := URL
end;