bugfix

Villavu · Dec 12, 2023 · 2c5cdef · 2c5cdef
1 parent fdfb97c
commit 2c5cdef
Showing 1 changed file with 15 additions and 1 deletion.
diff --git a/Source/forms/simba.main.pas b/Source/forms/simba.main.pas
@@ -600,13 +600,27 @@ procedure TSimbaForm.DoApplicationKeyDown(Sender: TObject; var Key: Word; Shift:
     Result := (Screen.ActiveControl is TSimbaEditor) and (TSimbaEditor(Screen.ActiveControl).Keystrokes.FindKeycode(Key, Shift) > -1);
   end;
 
+  function isScriptTabFormParent(Control: TControl): Boolean;
+  begin
+    while (Control <> nil) do
+    begin
+      if (Control.Parent = SimbaScriptTabsForm) then
+      begin
+        Result := True;
+        Exit;
+      end;
+      Control := Control.Parent;
+    end;
+    Result := False;
+  end;
+
 var
   Msg: TLMKey;
 begin
   if isEditorKeyStroke() then
     Exit;
 
-  if (Screen.ActiveControl is TSimbaEditor) or (Screen.ActiveControl is TSimbaMenuBar) then
+  if isScriptTabFormParent(Screen.ActiveControl) or (Screen.ActiveControl is TSimbaMenuBar) then
   begin
     Msg := Default(TLMKey);
     Msg.CharCode := Key;