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

Question

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

对于我知道如何执行此操作的新表格，只需继续“文件”>“新建”>“其他”>“可继承项目”和 select 父表格。但是已经存在的形式呢？

这是我尝试过的方法，请更改它：

type
  TFrmMyForm = class(TForm)

对此：

type
  TFrmMyForm = class(TFrmFatherForm)

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

有办法实现吗？

谢谢

Answer 1

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

object FrmMyForm : TFrmMyForm

到

inherited FrmMyForm : TFrmMyForm

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

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