Enter key Activation in Webbrowser

Salut

le code de cett Tutorials sa marche si que le Webbrowser est direct sur la Form :
[ Lien ]

Sa marche et j ai le testee, mais mon cas le Webbrowser est sur le Tabsheet
Je ne peut pas activer le Enter-Key !

je peut activer le Enter-Key selment dans un Webbrowser. mais j ai 3 Webbrowser

 j ai testee comme ca :

procedure TForm1.PageControl1Change(Sender: TObject);
begin
      if PageControl1.ActivePage=TabSheet2 then
begin
Application.OnMessage := MsgHandler;
end;
     if PageControl1.ActivePage=TabSheet4 then// damit kein Error wenn treeview (kap) versteckt.
begin
Application.OnMessage := MsgHandler2;
end;
     if PageControl1.ActivePage=TabSheet5 then// damit kein Error wenn treeview (kap) versteckt.
begin
Application.OnMessage := MsgHandler3;
end;
end;

j ai fait aussi 3  functions de MsgHandler
MsgHandler pour Webbrowser1
MsgHandler2 pour Webbrowser2
MsgHandler3 pour Webbrowser3

mais sa marche pas ?!

bonsoir,
tu peux peut-être créer une seule fonction paramétrée :

function ActiveMessage(browser : TWebBrowser ) : string;
begin
--
end;

cantador

Salut
oui, j ai fait aussi une selle Function mais sa marche pas bien :

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;
begin
  if ActiveWebBrowser =nilthen
  begin
    Handled := false;
    Exit;
  end;
  Handled := (IsDialogMessage(ActiveWebBrowser.Handle, Msg) = True);
  if (Handled) and (not ActiveWebBrowser.Busy) then
  begin
    if FOleInPlaceActiveObject =nilthen
    begin
      Dispatch := ActiveWebBrowser.Application;
      if Dispatch <> nilthen
      begin
        Dispatch.QueryInterface(IOleInPlaceActiveObject, IOIPAO);
        if IOIPAO <> nilthen FOleInPlaceActiveObject := IOIPAO;
      end;
    end;
    if FOleInPlaceActiveObject <> nilthen
      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;


procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := MsgHandler;
ActiveWebBrowser:= WebBrowser1;
end;


procedure TForm1.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePage=TabSheet1 then// damit kein Error wenn treeview (kap) versteckt.
begin
ActiveWebBrowser:= WebBrowser1;
end;
if PageControl1.ActivePage=TabSheet2 then
begin
ActiveWebBrowser:= WebBrowser2;
end;
end;

Comment puis je faire une Function de ActiveMessage ?
svp!

J'ai fait quelques test et effectivement, on ne s'en sort pas...
essaie ce composant :
lien

cantador

sory, c'est ne pas mon PC. je ne peut pas faire Modification
je voudrais modifier la Function selment

merci