(Delphi) 从 Parent 调用 Child 的过程

Question

父过程如何调用被自身覆盖的子过程？

type
  TBase = class(TForm)
  procedure BtnRefreshClick(Sender: TObject);
  protected
    text: string;
end;

procedure TBase.BtnRefreshClick(Sender: TObject);
begin
  showmessage(text);
end;

---

type
  TParent = class(TBase)
  protected
    procedure doThis;
  end;

procedure TParent.doThis;
begin
  // blah blah do something
  BtnRefreshClick(nil);
end;

---

type
  TChild = class(TParent)
  procedure BtnRefreshClick(Sender: TObject);
  protected
    procedure clicky; override;
  end;

procedure TChild.BtnRefreshClick(Sender: TObject);
begin
  text := 'Hello, World!';
  inherited;
end;

---

实际调用过程会有点像：

child := TChild.Create;
child.doThis;

---

如果我尝试执行child.BtnRefreshClick;，那么它将产生一个Hello, World! 的对话框，因为调用了TChild.BtnRefreshClick 并设置了text 变量。

但是当我调用child.doThis 时，它只会显示一个空对话框，因为child.doThis 调用parent.doThis 然后??.BtnRefreshClick。如何让parent.doThis 拨打child.BtnRefreshClick？不可能吗？

提前致谢，
尤汉·W。

Answer 1

父类调用基类的方法，因为这是存在于父类范围内的唯一方法。当编译器编译TParent代码时，它将名称BtnRefreshClick绑定到基类中的方法，而不是子类中的方法，因为子类不是父类的祖先。

一般来说，对于一个父对象调用子类的方法，该方法应该在父对象（或更高级别）中声明并且是虚拟的。如果您将TBase 更改为虚拟BtnRefreshClick，并将TChild 更改为覆盖相同的方法，那么当TParent.doThis 调用它时，调用将被调度到TChild方法。

type
  TBase = class(TForm)
    procedure BtnRefreshClick(Sender: TObject); virtual;
  end;

  TChild = class(TParent)
    procedure BtnRefreshClick(Sender: TObject); override;
  end;

在通过 DFM 设置通过名称分配方法属性的表单的特殊情况下，另一种解决方案是 Saintfalcon's answer 演示的，即调用关联按钮的 Click 方法。当TChild 表单上的按钮被实例化时，VCL 读取DFM 资源并找到与按钮的OnClick 事件关联的字符串“BtnRefreshClick”。它使用表单的MethodAddress 函数查找具有该名称的方法的地址，并找到属于TChild 的方法。它将该值分配给OnClick 属性。 Click 方法读取该属性并调用那里的任何方法。

我之前写过关于 the differences between calling an event-handler method directly, calling the event-handler property, and calling the event trigger 的文章，但当时我还没有考虑这里说明的方面，即处理程序在后代类中被隐藏或覆盖。

Answer 2

正如@StefanGlienke 所说，使用btnRefresh.click

procedure TParent.doThis;
begin
  // blah blah do something
  // BtnRefreshClick(nil); // this will call TBase.BtnRefreshClick
  btnRefresh.Click; // use this instead to call TChild.BtnRefreshClick
end;

谢谢