Guten Tag
ich habe mehrere Webbrowser in meiner Form und möchte ich die Eingabetaste drauf aktivieren
Mit dem Tutorial kann ich EnterKey nur in neinen aktivieren:
Tutorial

Hallo,

Anstatt WebBrowser1 wird dann einfach auf den aktiven Webbrowser verwiesen.
Wenn sich die Webbrowser auf verschiedenen TabSheets eines PageControls befinden ist es einfacher.

Und wie konnte man den aktiven Webbrowser auslesen?

Befinden sich alle Browser direkt auf der Form oder auf TabSheets?

alle Webbrowsers befinden sich in Tabsheets
Auf Form1 gibt es keinen Webbrowser

Zitat von Mini-Programmierer:

alle Webbrowsers befinden sich in Tabsheets
Auf Form1 gibt es keinen Webbrowser

Dann kannst du ja ermitteln, welches TabSheet aktiv ist und dann den Webbrowser auf dem TabSheet ermitteln.

Ich habe dann folgendes gemacht :

zusammenfalten · markieren

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 :

zusammenfalten · markieren

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:

markieren

Delphi-Quellcode:

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

end;

Hallo,

Sollte so funktionieren:

// aktiven Browser ermitteln:

zusammenfalten · markieren

Delphi-Quellcode:

function TForm1.GetCurrentWB: TWebbrowser;
begin
  Result := nil;
  with PageControl do
    if ActivePage.Controls[0] is TWebbrowser then
      Result := (TWebbrowser(ActivePage.Controls[0]));
end;


procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean);
const
  StdKeys = [VK_BACK, VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT];
var
  IOIPAO: IOleInPlaceActiveObject;
  Dispatch: IDispatch;
  CurrentWB: TWebbrowser;
begin
  CurrentWB := GetCurrentWB;
  if CurrentWB = nil then
  begin
    Handled := False;
    Exit;
  end;
  Handled := (IsDialogMessage(CurrentWB.Handle, Msg) = True);
  if (Handled) and (not CurrentWB.Busy) then
  begin
    if FOleInPlaceActiveObject = nil then
    begin
      Dispatch := CurrentWB.Application;
      if Dispatch <> nil then
      begin
        Dispatch.QueryInterface(IOleInPlaceActiveObject, IOIPAO);
        if IOIPAO <> nil then FOleInPlaceActiveObject := IOIPAO;
      end;
    end;
    if FOleInPlaceActiveObject <> nil then
      if ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) and
        (Msg.wParam in StdKeys) then
        //nothing - do not pass on Backspace, Left, Right, Up, Down arrows
      else FOleInPlaceActiveObject.TranslateAccelerator(Msg);
  end;
end;

Man könnte auch den aktiven Browser im OnChange des PageControls auslesen und in einer Variable (FCurrentWB) speichern.

markieren

Delphi-Quellcode:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  FCurrentWB := GetCurrentWB;
end;

Hallo

Deine Funktion aktiviert auch die Eingabetaste nur in einen Webbrowser
Hier ist das Projekt als Demo. Vielleicht habe ich was nicht aufgepasst
mfg

Das hier gefällt mir aber nicht :

Zitat von toms:

markieren

Delphi-Quellcode:

procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean);
const
  StdKeys = [VK_BACK, VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT];
...

Da werden Standardbezeichner benutzt ! Würde ich vermeiden. Weiß der Teufel, was dabei rauskommt.