diff --git a/ide/lazarus.pp b/ide/lazarus.pp
index bbc6ca3ae7..aef06ef76b 100644
--- a/ide/lazarus.pp
+++ b/ide/lazarus.pp
@@ -89,6 +89,7 @@ begin
   LazarusRevisionStr:=RevisionStr;
   Application.Title:='Lazarus';
   OnGetApplicationName:=@GetLazarusApplicationName;
+  Application.MainFormOnTaskBar := True;
   Application.Initialize;
   TMainIDE.ParseCmdLineOptions;
   if not SetupMainIDEInstance then exit;