always bring focus to unique instance

FRex · Dec 17, 2019 · bddc3e3 · bddc3e3
1 parent b819dcb
commit bddc3e3
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/mainunit.pas b/mainunit.pas
@@ -509,11 +509,10 @@ procedure TForm1.UniqueInstance1OtherInstance(Sender: TObject;
 begin
 
   if ParamCount > 0 then
-  begin
     OpenShortcutFile(Parameters[0]);
-    Application.Restore;
-    Application.BringToFront;
-  end;
+
+  Application.Restore;
+  Application.BringToFront;
 end;
 
 procedure TForm1.OpenShortcutFile(const fname: string);