diff --git a/ideintf/propedits.pp b/ideintf/propedits.pp
index b7e7778cc4..3546c3930a 100644
--- a/ideintf/propedits.pp
+++ b/ideintf/propedits.pp
@@ -3663,7 +3663,7 @@ begin
   If CollectionForm=nil then
     CollectionForm := TCollectionPropertyEditorForm.Create(Application);
   CollectionForm.SetCollection(TheCollection,GetComponent(0),GetName);
-  CollectionForm.Show;
+  CollectionForm.EnsureVisible;
 end;
 
 { TClassPropertyEditor }