diff --git a/ide/main.pp b/ide/main.pp
index 0379287440..da9da0ef88 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -87,7 +87,7 @@ uses
   ApplicationBundle,
   ExtTools,
   // projects
-  ProjectResources, Project, ProjectDefs, NewProjectDlg, 
+  ProjectResources, Project, ProjectDefs, NewProjectDlg,
   PublishProjectDlg, ProjectInspector, PackageDefs,
   // help manager
   IDEContextHelpEdit, IDEHelpIntf, IDEHelpManager, CodeHelp, HelpOptions,
@@ -1135,7 +1135,7 @@ begin
     AddHelp(['']);
     AddHelp([GetCmdLineParamDescForInterface]);
     AddHelp(['']);
-   
+
     WriteHelp(AHelp.Text);
     AHelp.Free;
     exit;
@@ -1878,7 +1878,7 @@ begin
 end;
 
 procedure TMainIDE.PropHookGetMethods(TypeData: PTypeData; Proc: TGetStrProc);
-var 
+var
   ActiveSrcEdit: TSourceEditor;
   ActiveUnitInfo: TUnitInfo;
 begin
@@ -3858,7 +3858,10 @@ begin
 
   ACmd.Hint := ABuildHint;
   if ProjInspector<>nil then
+  begin
     ProjInspector.OptionsBitBtn.Hint := ABuildHint;
+    ProjInspector.UpdateTitle;
+  end;
 end;
 
 procedure TMainIDE.UpdatePackageCommands(Sender: TObject);
diff --git a/ide/projectinspector.pas b/ide/projectinspector.pas
index b8cf0b64fb..7ac463a1e4 100644
--- a/ide/projectinspector.pas
+++ b/ide/projectinspector.pas
@@ -1397,7 +1397,10 @@ begin
     NewCaption:=LazProject.GetTitle;
     if NewCaption='' then
       NewCaption:=ExtractFilenameOnly(LazProject.ProjectInfoFile);
-    Caption:=Format(lisProjInspProjectInspector, [NewCaption]);
+    NewCaption:=Format(lisProjInspProjectInspector, [NewCaption]);
+    if (LazProject.ActiveBuildMode.GetCaption<>'') then
+      NewCaption := NewCaption + ' ['+LazProject.ActiveBuildMode.GetCaption+']';
+    Caption := NewCaption;
 
     if not LazProject.ProjResources.ProjectIcon.IsEmpty then
     begin