delphi - 如何使 "inherited"出现在程序末尾而不是开头？

Question

首先，我怀疑这是否可能，但如果是的话，我很想知道如何实现。我记得以前见过这种行为，但它可以在 IDE 中显式实现。

我有一个基本形式，然后我将其继承为各种其他形式。在基本表单中，我有许多虚拟方法，这些方法将由继承的表单覆盖和实现。

某些虚拟方法期望在过程的结束时调用继承。但是，默认情况下，它会自动插入到开头。这往往会导致困惑，特别是忘记在末尾而不是开头调用它。

如果可能的话，如何强制inherited插入到结尾而不是开头，如下所示？

procedure TMyForm.DoStuff;
begin

  inherited;
end;

Answer 1

您无法更改 IDE 的这种行为。

IDE 知道某些方法，例如重写的析构函数，期望 inherited 语句出现在方法体的末尾。对于此类方法，IDE 在执行类完成时确实将对 inherited 的调用放在方法主体的末尾。但是没有任何机制可以让您告诉 IDE，它一无所知的其他方法也应以这种方式对待。