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