WebBrowserをFormに２個置きたい。 (ID:44568)

名前

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

本文 あ さん お返事が遅れて申し訳ありません。急用で名古屋に行き今朝戻ってきました。説明不足で申し訳ありませんでした。 何もおかしくないじゃないかというお答えにもう一度考えました。 おっしゃるとおりファイラーのようにも使いたいのです。 質問のコードは一個だけのコードですが、これを二組用意すると言いたかったのです。片方がリネームなどできなかったので質問しました。 そこで下記のようにMsgHandlerに二組いれてみましたら うまく動くようになりました。 なにかまずいことが発生するかは解りませんが、とにかくこれでやってみます。 ありがとうございました。 procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean); var iOIPAO: IOleInPlaceActiveObject; Dispatch: IDispatch; begin if not Assigned(Form1.WebBrowser1) then begin Handled := False; end else begin //アイコンのファイル名変更を可能にするのだが下のMsg.messageでキャンセルされるので・・・ 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); end; if iOIPAO <> nil then begin //Webbrowserでアイコン表示のときファイル名を変更できるようにするため if Tmode<>tSAM then begin 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) or (Msg.wParam = VK_UP) or (Msg.wParam = VK_DOWN)) then begin end else begin iOIPAO.TranslateAccelerator(Msg); end; end; end; Dispatch._Release; end; end; if not Assigned(Form1.WebBrowser2) then begin Handled := False;exit; end else begin //アイコンのファイル名変更を可能にするのだが下のMsg.messageでキャンセルされるので・・・ Handled := (IsDialogMessage(WebBrowser2.Handle, Msg) = True); if (Handled) and (not WebBrowser2.Busy) then begin Dispatch := WebBrowser2.Application; if Dispatch <> nil then begin Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO); end; if iOIPAO <> nil then begin //Webbrowserでアイコン表示のときファイル名を変更できるようにするため if Tmode<>tSAM then begin 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) or (Msg.wParam = VK_UP) or (Msg.wParam = VK_DOWN)) then begin end else begin iOIPAO.TranslateAccelerator(Msg); end; end; end; Dispatch._Release; end; end; end;