WebBrowserでの入力が・・・ (ID：4883)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

torumさんのコードと殆ど同じなのですが下のようにして使っています

uses
  SHDocVw_TLB, ActiveX;
  Delphi6ならSHDocVw_TLBをSHDocVwに
---------------------------------------------------------------
  private
    FOleInPlaceActiveObject: IOleInPlaceActiveObject;
  procedure MsgHandler(var Msg: TMsg; var Handled: Boolean);
---------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := MsgHandler;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FOleInPlaceActiveObject := nil;
end;

procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean);
var
  iOIPAO: IOleInPlaceActiveObject;
  Dispatch: IDispatch;
begin
  if WebBrowser1 = nil then
    begin
      Handled := False;
      Exit;
    end;
  Handled := (IsDialogMessage(WebBrowser1.Handle, Msg) = True);
  if (Handled) and (not WebBrowser1.Busy) then
    begin
      Dispatch := WebBrowser1.Application;
      if Dispatch <> nil then
        begin
          Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO);
      if iOIPAO <> nil then
        begin
          FOleInPlaceActiveObject := iOIPAO;
        end;
    end;
  if FOleInPlaceActiveObject = nil then
    FOleInPlaceActiveObject.TranslateAccelerator(Msg);
  end;
end;

initialization
  OleInitialize(nil);
finalization
  OleUninitialize;

end.

←解決時は質問者本人がここをチェックしてください。

戻る