delphi - 重新引入构造函数的可见性

Question

我已在基本表单中重新引入了表单构造函数，但如果我在后代表单中覆盖原始构造函数，则重新引入的构造函数将不再可见。

type
  TfrmA = class(TForm)
  private
    FWndParent: HWnd;
  public
    constructor Create(AOwner: TComponent; const AWndParent: Hwnd); reintroduce; overload; virtual;
  end;

constructor TfrmA.Create(AOwner: TComponent; const AWndParent: Hwnd);
begin
  FWndParent := AWndParent;
  inherited Create(AOwner);
end;

type
  TfrmB = class(TfrmA)
  private
  public
  end;

type
  TfrmC = class(TfrmB)
  private
  public
    constructor Create(AOwner: TComponent); override;
  end;

constructor TfrmC.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

创建时:

  frmA := TfrmA.Create(nil, 0);
  frmB := TfrmB.Create(nil, 0);
  frmC := TfrmC.Create(nil, 0); // Compiler error

我的解决方法是重写重新引入的构造函数或声明原始构造函数已重载，但我想了解此行为的原因。

type
  TfrmA = class(TForm)
  private
    FWndParent: HWnd;
  public
    constructor Create(AOwner: TComponent); overload; override;
    constructor Create(AOwner: TComponent; const AWndParent: Hwnd); reintroduce; overload; virtual;
  end;

type
  TfrmC = class(TfrmB)
  private
  public
    constructor Create(AOwner: TComponent; const AWndParent: Hwnd); override;
  end;

Answer 1

在您的初始代码中，您的 Create 构造函数隐藏了原始的 Create。这就是编译器提示 TfrmC 重写它无法再从那里看到的构造函数的原因。

您通常会收到有关此问题的编译器消息，但“重新引入”会抑制此情况。每当您需要“重新引入”来抑制编译器消息时，就应该敲响警钟，因为这表明您正在破坏多态性。并不意味着您不应该使用它，但您应该了解其含义。

在这些情况下，如果我想保留重写原始构造函数的能力，我倾向于添加不同的构造函数，即

constructor CreateWithParent(AOwner: TComponent; const AWndParent: HWnd); virtual;

并在其实现中调用原始构造函数。这确实意味着我需要调用不同的构造函数，但由于您已经需要传递另一个参数，所以这看起来并不是一个糟糕的权衡。

编辑:正如我在评论中提到的，编译器提示 tfrmC.Create(nil, 0);参数太多。似乎 tfrmC.Create(AOwner) 隐藏了 tfrmA.Create(AOwner, AWndParent);回家路上想了想(堵车似乎还是有优势)，对此是有解释的。

1) tfrmA.Create 上的重载除了允许引入其他同名构造函数之外没有其他直接目的。2)TfrmC构造函数有效地隐藏了TfrmA构造函数，重新引入了TfrmA构造函数隐藏的签名。实际上，这不是对原始构造函数的重写，而是对重新引入的构造函数的重新引入。3)我觉得编译器应该发出关于这种隐藏的警告。其原因可能是 TfrmA 构造函数上的重载指令。当您删除它时，您会收到有关 TfrmC.Create 声明的错误，该声明与之前的声明不同。4) 由于 TfrmA 构造函数被 TfrmC 隐藏，编译器正确地提示 TFrmC.Create(nil, 0) 有太多参数。

当您仅使用 override 指令将 TfrmA 构造函数的签名添加到 TfrmC 时，2) 中描述的内容就会变得显而易见。然后 IDE 会立即将该构造函数标记为红线。原因是:两个构造函数具有相同的名称，并且缺少仅具有 AOwner 参数的 TfrmC 构造函数的重载指令。

当您在 tfrmC 实例化中注释掉第二个参数并且仅编码为“inherited;”时，情况也会变得清晰起来。而不是“继承 Create(AOwner);”在其实现过程中。然后编译器会提示类型不兼容。

后者可以通过使用“inherited Create(AOwner);”来解决(就像你所做的那样)或“继承Create(AOwner, 0);”。虽然后者会确保返回继承树，但前者会直接跳回 TForm1.Create。

使用 code 的稍微修改版本如果 TfrmC 使用单个参数实例化，“inherited Create(AOwner)”的结果将是:

alt text http://www.bjmsoftware.com/delphistuff/overloading/InheritedCreate1Param.jpg

而“inherited Create(AOwner, 0);”的结果本来可以: alt text http://www.bjmsoftware.com/delphistuff/overloading/InheritedCreate2Params.jpg

按照我在注释中建议的方式向 TfrmC 构造函数添加重载会覆盖原始 TForm1.Create 并允许两个具有相同名称的构造函数。这可以在测试项目中通过打开 TFRMC_OVERLOAD 和 INSTANTIATE2 条件定义来说明。这使用 TfrmC.Create(nil, 0) 实例化 TfrmC 并导致:

alt text http://www.bjmsoftware.com/delphistuff/overloading/InheritedCreate2ParamsOverload.jpg

这显示 TfrmB.Create 被 TfrmC 调用，因为 TfrmB 是具有两参数构造函数实现的第一个祖先。使用 TfrmC.Create(nil) 实例化 TfrmC 时(关闭 INSTANTIATE2 条件定义)，会产生与第一张或第二张相同的图片(取决于 TWOPARAMS 定义)。