ギコナビのメッセージを横取りしてるところで、browserに行くとしてカットしてたのを

流すように変更。

diff --git a/Giko.pas b/Giko.pas
index d91272c..39cfa86 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -9590,16 +9590,18 @@ begin
        if Key = VK_BACK then begin
                UpBoardAction.Execute;
                Result := True;
-       end else if Key in [VK_ESCAPE..VK_HELP] then begin
+       {end else if Key in [VK_ESCAPE..VK_HELP] then begin
                // \8f\\8e\9a\81APage Up\81APage Down \93\99\82Í Browser \82ª\8f\9f\8eè\82É\8eó\82¯\8eæ\82é\82Ì\82Å\83C\83x\83\93\83g\82ð\83J\83b\83g
                Result := True;
+    }
        end else begin
                // \82»\82ê\88È\8aO\82Ì\83C\83x\83\93\83g\82Í Browser \82É\97¬\82·
                Dispatch := Browser.Application;
-               if Dispatch <> nil then
+               if Dispatch <> nil then begin
                        Dispatch.QueryInterface( IOleInPlaceActiveObject, iOIPAO );
-               if iOIPAO <> nil then
-                       iOIPAO.TranslateAccelerator( Msg );
+                       if iOIPAO <> nil then
+                               iOIPAO.TranslateAccelerator( Msg );
+               end;
 
                // \83M\83R\83i\83r\82Å\8eg\82¤\83V\83\87\81[\83g\83J\83b\83g\82Í\8eó\82¯\8eæ\82è\82½\82¢\82Ì\82Å\83C\83x\83\93\83g\82Í\83J\83b\83g\82µ\82È\82¢
                Result := False;