EnterKey activate ?

[Mini-Programmierer]

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

[toms]

Hallo,

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

[Mini-Programmierer]

Und wie konnte man den aktiven Webbrowser auslesen?

[toms]

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

[Mini-Programmierer]

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

[toms]

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.

[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;

[toms]

Hallo,

Sollte so funktionieren:

// aktiven Browser ermitteln:

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.

Delphi-Quellcode:

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

[Mini-Programmierer]

Hallo

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

[Hansa]

Das hier gefällt mir aber nicht :

Zitat von toms:

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.