diff --git a/designer/askcompnamedlg.pas b/designer/askcompnamedlg.pas index 461804ac7e..c087588e74 100644 --- a/designer/askcompnamedlg.pas +++ b/designer/askcompnamedlg.pas @@ -286,13 +286,16 @@ begin ErrorMsg:=lisThereIsAlreadyAComponentWithThisName; exit; end; - if SysUtils.CompareText(AName,FLookupRoot.Name)=0 then begin - ErrorMsg:=lisTheOwnerHasThisName; - exit; - end; - if SysUtils.CompareText(AName,FLookupRoot.ClassName)=0 then begin - ErrorMsg:=lisTheOwnerClassHasThisName; - exit; + if FLookupRoot<>FNewComponent then + begin + if SysUtils.CompareText(AName,FLookupRoot.Name)=0 then begin + ErrorMsg:=lisTheOwnerHasThisName; + exit; + end; + if SysUtils.CompareText(AName,FLookupRoot.ClassName)=0 then begin + ErrorMsg:=lisTheOwnerClassHasThisName; + exit; + end; end; if SysUtils.CompareText(AName,GetClassUnitName(FLookupRoot.ClassType))=0 then begin ErrorMsg:=lisTheUnitHasThisName;