動的にバグを回避する (ID:19145)

名前

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

本文

いつも拝見しております。
Delphi 7 Professional
WindowsXP professional SP1

WebBrowserコントロール内に表示されたフォームの入力バグを回避する策を
過去ログで見つけたのですが、WebBrowser1に対して書かれたもので、タブブラウザの様に、動的にコンポーネントを生成する場合、それらのバグ回避はどのように書けばよいのでしょうか。。。

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
    	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)) then
        	else
				FOleInPlaceActiveObject.TranslateAccelerator(Msg);
        end;
    end;
end;

initialization
    OleInitialize(nil);

finalization
    OleUninitialize;

end.

といったソースがあったのですが、WebBrowser1を直接書かれている為、困っています。
なにか対策がありましたらお願いします。

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

戻る