Для того, чтобы отменить создание компонента, просто создайте объект исключения.
constructor TMyComponent.Create(AOwner:TComponent); begin if SomeCondition then raise Exception.Create('Не могу создать компонент'); inherited Create(AOwner); .... дополнительная инициализация ... end; |
Pat [000470]