diff --git a/components/ideintf/idemsgintf.pas b/components/ideintf/idemsgintf.pas
index 2a59976171..e24f19e335 100644
--- a/components/ideintf/idemsgintf.pas
+++ b/components/ideintf/idemsgintf.pas
@@ -91,6 +91,7 @@ type
       WithSrcPos: boolean): boolean; virtual; abstract;
     function SelectNextUrgentMessage(aMinUrgency: TMessageLineUrgency;
       WithSrcPos, Downwards: boolean): boolean; virtual; abstract;
+    function OpenSelection: Boolean; virtual; abstract;
 
     function AddCustomMessage(TheUrgency: TMessageLineUrgency; Msg: string;
       aSrcFilename: string = ''; LineNumber: integer = 0; Column: integer = 0;
diff --git a/ide/etmessageswnd.pas b/ide/etmessageswnd.pas
index 333970dc91..522a85408c 100644
--- a/ide/etmessageswnd.pas
+++ b/ide/etmessageswnd.pas
@@ -81,6 +81,7 @@ type
     function AddCustomMessage(TheUrgency: TMessageLineUrgency; Msg: string;
       aSrcFilename: string=''; LineNumber: integer=0; Column: integer=0;
       const ViewCaption: string=''): TMessageLine; override;
+    function OpenSelection: Boolean; override;
 
     // misc
     procedure SourceEditorPopup(MarkLine: TSynEditMarkLine; const LogicalCaretXY: TPoint);
@@ -142,6 +143,11 @@ begin
   end;
 end;
 
+function TMessagesView.OpenSelection: Boolean;
+begin
+  Result := MessagesFrame1.MessagesCtrl.OpenSelection;
+end;
+
 procedure TMessagesView.SetDblClickJumps(AValue: boolean);
 begin
   if AValue then