1 files changed, 6 insertions, 5 deletions
diff --git a/src/corelib/fpg_widget.pas b/src/corelib/fpg_widget.pas
index dc7fd53d..50bb0295 100644
--- a/src/corelib/fpg_widget.pas
+++ b/src/corelib/fpg_widget.pas
@@ -958,17 +958,18 @@ begin
 
   dir := 0;
 
+  if not consumed and (keycode = fpgApplication.HelpKey) then
+  begin
+    InvokeHelp;
+    consumed := True;
+  end;
+
   case keycode of
     keyTab:
         if (ssShift in shiftstate) then
           dir := -1
         else
           dir := 1;
-    keyF1:
-      begin
-        InvokeHelp;
-        consumed := True;
-      end;
 {
     keyReturn,
     keyDown,