小编Han*_*ric的帖子

在Delphi中有可能让一个类方法调用一个具有相同名称的继承实例方法吗？例如,我尝试过这样的事情:

//... Skipped surrounding class definitions

function TSomeAbstractDialogForm.Execute: Boolean;
begin
  Result := ShowModal = mrOk;
end;

我有一些继承抽象对话框表单的专用对话框类,每个类都有自己的工厂方法:

class function TSomeInheritingDialogForm.Execute: Boolean;
var
  Fm: TSomeInheritingDialogForm;
begin
  Fm := TSomeInheritingDialogForm.Create(nil);
  try
    Result := Fm.Execute;
  finally
    Fm.Free;
  end
end;

这种方法导致了一个永无止境的循环,因为F.Execute不是调用基类的预期实例方法,而是一遍又一遍地调用工厂方法(导致一堆创建的表单).

当然,显而易见的解决方案是更改工厂方法的名称(我将其命名为CreateAndShow),但这让我很好奇.为什么编译器没有警告我隐藏的方法？有没有办法在这样的情况下显式调用实例方法？