diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index 7c5a06d24d..c1da37261f 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -1725,6 +1725,7 @@ begin
   // set filename after workingdir
   FDebugger.FileName := LaunchingApplication;
   FDebugger.Arguments := LaunchingParams;
+  FDebugger.ShowConsole := not Project1.CompilerOptions.Win32GraphicApp;
 
   // check if debugging needs restart
   // mwe: can this still happen ?