Es funktioniert jetzt
In OnCreate muss aber nicht Webbrowser1 sondern der GetCurrentWB
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
// FCurrentWB := Webbrowser1;
FCurrentWB := GetCurrentWB;
Es gibt aber noch ein Problem: Wenn ich ein neues tabsheet (4. Tabsheet) erstelle ohne drauf einen Wennrowser
anzulegen, dann erscheint eine Fehlermeldung.
Update
Gelöst mit dem Code :
Delphi-Quellcode:
procedure TForm1.PageControl1Change(Sender: TObject);
begin
if (PageControl1.ActivePage=TabSheet1) or
(PageControl1.ActivePage=TabSheet2) or
(PageControl1.ActivePage=TabSheet3) then
begin
FCurrentWB := GetCurrentWB;
end;
end;
Dann erscheint keine Fehlermeldung, wenn ich das Tabsheet4 aufrufe
Noch ein kleines Problem :
In Form2 habe ich auch einen Webbrowser und wollte ich genauso drauf die Enter-Taste aktivieren
geht aber nicht. Vermutlich ist die Form1
Vielen Dank Toms für Deine Hilfe
mfg