delphi - 如何使旧形式从另一个继承？

Question

我有一个现有的表单，我现在想要这个表单，从另一个表单继承。

对于我知道如何执行此操作的新表单，只需继续 File > New > Other > Inheritable items 并选择父表单。但是已经存在的形式呢？

这是我试过的，改变这个：

type
  TFrmMyForm = class(TForm)

对此：

type
  TFrmMyForm = class(TFrmFatherForm)

但它似乎不起作用，因为 FrmMyForm 没有导入 FrmFatherForm 组件。

有没有办法做到这一点？

谢谢

Answer 1

在其他一些文本编辑器中打开 dfm 文件并替换object为inherited

object FrmMyForm : TFrmMyForm

至

inherited FrmMyForm : TFrmMyForm

但是，如果它们不属于同一个项目，Delphi 在打开此类表单时会遇到问题。例如，如果您在包中声明了基本表单，并且您正在使用它来继承应用程序或其他包中的表单。

如果您在打开此类表单时遇到问题，请确保您先打开基本表单，然后再继承。