delphi - 如何中断组件加载其构造函数？

Question

我想在无法加载组件时向其组件添加条件状态，并通知其用户(开发人员)在设计时无法加载该组件，并且无法在运行时(目标用户)安全地加载目标组件(如果可能的话)。

如何防止组件在其构造函数中加载以及如何在设计时和运行时安全地显示来自构造函数的消息(异常)？

constructor TSomeComponent.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  if csDesigning in ComponentState then
    if SomeIncompatibleCondition then
      begin
        // how to display message (exception) about the wrong 
        // condition and interrupt the loading of the component ?
      end;

  // is it possible to do the same at runtime ?
end;

谢谢

Answer 1

引发异常，例如:

constructor TSomeComponent.Create(AOwner: TComponent); 
begin 
  inherited Create(AOwner); 
  if SomeIncompatibleCondition then 
    raise Exception.Create('Incompatible condition detected!');
end;