diff --git a/ide/searchresultview.pp b/ide/searchresultview.pp
index 1f4a252a88..93f70baccc 100644
--- a/ide/searchresultview.pp
+++ b/ide/searchresultview.pp
@@ -1054,6 +1054,7 @@ end;
 Constructor TLazSearchResultTV.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
+  ReadOnly := True;
   fSearchObject:= TLazSearch.Create;
   fUpdating:= false;
   fUpdateCount:= 0;