Skip to content
Permalink
Browse files

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

…ed. Closes #574
  • Loading branch information...
ansgarbecker committed Mar 14, 2019
1 parent d6dc4cd commit f8acaa7af3015fbb7f3184426612f5c617a27f70
Showing with 5 additions and 0 deletions.
  1. +5 −0 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.

0 comments on commit f8acaa7

Please sign in to comment.
You can’t perform that action at this time.