EnterKey activate ?

[Mini-Programmierer]

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