EnterKey activate ?

[Mini-Programmierer]

Ich habe dann folgendes gemacht :

Delphi-Quellcode:

var
  Form1: TForm1;
  aktivWebBrowser: TWebBrowser;
// ...
procedure TForm1.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePage=TabSheet1 then
begin
aktivWebBrowser:= WebBrowser1;
end;
if PageControl1.ActivePage=TabSheet2 then
begin
aktivWebBrowser:= WebBrowser2;
end;
end;

und natürlich habe ich auch die Funktion geändernt :

Delphi-Quellcode:

procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean);
var
  iOIPAO: IOleInPlaceActiveObject;
  Dispatch: IDispatch;
begin
    if (aktivWebBrowser = nil) then // also statt Webbrowser1, habe ich aktivWebBrowser verwendet
  begin
    Handled := False;
    Exit;
  end;
...

Leider wird EnterKey nur in Webbrowser1 aktiviert

Nur OnCreate kann ich den gewüschten aktiven Webbrowser zuweisen aber in Event PageControl1Change nicht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
beginaktivWebBrowser:= WebBrowser2;
// aktivWebBrowser:= WebBrowser1;

end;