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;