イベントが２回呼ばれる不具合の修正

（KeyUpを無視してます）

diff --git a/Giko.pas b/Giko.pas
index 61b7c61..80589cc 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -7801,11 +7801,14 @@ begin
                        //\83L\81[\93ü\97Í\82·\82×\82Ä
                        WM_KEYFIRST..WM_KEYLAST :
                        begin
-                               wmMsg.Msg := Msg.message;
-                               wmMsg.CharCode := Word(Msg.wParam);
-                               wmMsg.KeyData := Msg.lParam;
-                               //\83t\83H\81[\83\80\82Ì\83V\83\87\81[\83g\83J\83b\83g\82Ì\8f\88\97\9d\82É\93]\91\97
-                               Self.OnShortCut(wmMsg, Handled);
+                               //\83L\81[\83A\83b\83v\82Í\96³\8e\8b\82·\82é\81@KeyDown\82Æ\8d\87\82í\82¹\82Ä\82Q\89ñ\8cÄ\82Î\82ê\82é\82©\82ç
+                               if Msg.message <> WM_KEYUP then begin
+                                       wmMsg.Msg := Msg.message;
+                                       wmMsg.CharCode := Word(Msg.wParam);
+                                       wmMsg.KeyData := Msg.lParam;
+                                       //\83t\83H\81[\83\80\82Ì\83V\83\87\81[\83g\83J\83b\83g\82Ì\8f\88\97\9d\82É\93]\91\97
+                                       Self.OnShortCut(wmMsg, Handled);
+                               end;
                        end;
                end;
        end;