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;

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

戻る