・ブラウザのキーイベントが 2 回発生してしまうバグを修正。

diff --git a/Giko.pas b/Giko.pas
index 39e1b0b..77aa240 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -987,7 +987,7 @@ type
                procedure HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
                // \83u\83\89\83E\83U\82Ì\83L\81[\83_\83E\83\93\83C\83x\83\93\83g
                // \83C\83x\83\93\83g\82ð\8eæ\82è\88µ\82Á\82½\8fê\8d\87\82Í True \82ð\95Ô\82·
-               function BrowserKeydown(Sender: TObject; Key: Word; State:TShiftState) : Boolean;
+               procedure BrowserKeydown(Sender: TObject; Key: Word; State:TShiftState);
 
        protected
                procedure CreateParams(var Params: TCreateParams); override;
@@ -9526,14 +9526,12 @@ begin
 end;
 
 // \83u\83\89\83E\83U\82Ì\83L\81[\83_\83E\83\93\83C\83x\83\93\83g
-               // \83C\83x\83\93\83g\82ð\8eæ\82è\88µ\82Á\82½\8fê\8d\87\82Í True \82ð\95Ô\82·
-function TGikoForm.BrowserKeydown(Sender: TObject; Key: Word; State:TShiftState) : Boolean;
+// \83C\83x\83\93\83g\82ð\8eæ\82è\88µ\82Á\82½\8fê\8d\87\82Í True \82ð\95Ô\82·
+procedure TGikoForm.BrowserKeydown(Sender: TObject; Key: Word; State:TShiftState);
 begin
 
-       if Key = VK_BACK then begin
+       if Key = VK_BACK then
                UpBoardAction.Execute;
-               Result := True;
-       end;
 
 end;
 
@@ -9541,14 +9539,14 @@ end;
 procedure TGikoForm.HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
 var
        key : Word;
-       h               : Boolean;
 begin
 
        case Msg.message of
        WM_KEYFIRST..WM_KEYLAST:
                if IsDialogMessage( Browser.Handle, Msg ) then begin
+                       Handled := True;
                        key := Msg.wParam;
-                       Handled := BrowserKeyDown( nil, key, KeyDataToShiftState( Msg.lParam ) );
+                       BrowserKeyDown( nil, key, KeyDataToShiftState( Msg.lParam ) );
                        Msg.wParam := key;
                end;
        WM_XBUTTONDOWN:
@@ -9565,7 +9563,7 @@ begin
                end;
        end;
 
-end;
+       end;
 
 procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject;
   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);