K210.ORG

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, OleCtrls, SHDocVw,activex;

 

type

  TForm1 = class(TForm)

    WebBrowser1: TWebBrowser;

    procedure FormCreate(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure FormDeactivate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

    FOleInPlaceActiveObject: IOleInPlaceActiveObject;

    SaveMessageHandler: TMessageEvent;

    procedure MyMessageHandler(var Msg: TMsg; var Handled: Boolean);

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  WebBrowser1.Navigate('http://ya.ru');

end;

 

procedure TForm1.FormActivate(Sender: TObject);

begin

  SaveMessageHandler := Application.OnMessage;

  Application.OnMessage := MyMessageHandler;

end;

 

procedure TForm1.FormDeactivate(Sender: TObject);

begin

  Application.OnMessage := SaveMessageHandler;

end;

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  Application.OnMessage := SaveMessageHandler;

  FOleInPlaceActiveObject := nil;

end;

 

procedure TForm1.MyMessageHandler(var Msg: TMsg; var Handled: Boolean);

var

  iOIPAO: IOleInPlaceActiveObject;

  Dispatch: IDispatch;

begin

  { exit if we don't get back a webbrowser object }

  if WebBrowser1 = nil then

  begin

    Handled := False;

    Exit;

  end;

 

  Handled:=(IsDialogMessage(WebBrowser1.Handle, Msg) = True);

 

  if (Handled) and (not WebBrowser1.Busy) then

  begin

    if FOleInPlaceActiveObject = nil then

    begin

      Dispatch := WebBrowser1.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 = VK_BACK) or (Msg.wParam = VK_LEFT) or (Msg.wParam = VK_RIGHT)) then

        //nothing - do not pass on Backspace, Left or Right arrows

      else

        FOleInPlaceActiveObject.TranslateAccelerator(Msg);

  end;

end;

 

end.