diff --git a/components/ideintf/lazideintf.pas b/components/ideintf/lazideintf.pas
index 0c4d647afc..77db41a9a2 100644
--- a/components/ideintf/lazideintf.pas
+++ b/components/ideintf/lazideintf.pas
@@ -297,7 +297,7 @@ type
     property ToolStatus: TLazToolStatus read FToolStatus write SetToolStatus;
 
     // the main window with the IDE menu
-    function GetMainBar: TComponent; virtual; abstract;
+    function GetMainBar: TForm; virtual; abstract;
     property MainBarSubTitle: string read FMainBarSubTitle write SetMainBarSubTitle;
 
     // find file
diff --git a/ide/mainbase.pas b/ide/mainbase.pas
index 4922995061..edbffe42e5 100644
--- a/ide/mainbase.pas
+++ b/ide/mainbase.pas
@@ -137,7 +137,7 @@ type
     procedure StartIDE; virtual; abstract;
     destructor Destroy; override;
     procedure CreateOftenUsedForms; virtual; abstract;
-    function GetMainBar: TComponent; override;
+    function GetMainBar: TForm; override;
     procedure SetRecentProjectFilesMenu;
     procedure SetRecentFilesMenu;
     function BeginCodeTool(var ActiveSrcEdit: TSourceEditor;
@@ -705,7 +705,7 @@ begin
   ActiveUnitInfo:=AnUnitInfo;
 end;
 
-function TMainIDEBase.GetMainBar: TComponent;
+function TMainIDEBase.GetMainBar: TForm;
 begin
   Result:=MainIDEBar;
 end;