Protect from crash when pressing ctrl+tab before main form is display…

…ed. Closes #574
HeidiSQL · Mar 14, 2019 · f8acaa7 · f8acaa7
1 parent d6dc4cd
commit f8acaa7
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/source/main.pas b/source/main.pas
@@ -5248,6 +5248,11 @@ procedure TMainForm.PageControlMainChange(Sender: TObject);
 var
   tab: TTabSheet;
 begin
+  // Protect from crash when pressing ctrl+tab before main form is displayed
+  // See #574
+  if not Self.Visible then
+    Exit;
+
   tab := PageControlMain.ActivePage;
 
   // Move focus to relevant controls in order for them to receive keyboard events.