在Delphi中重新创建TFORM的功能

Question

我需要一个重新创建表格的程序。

原因是我有许多不同组成部分的形式。这些组件值（编辑框文本，检查或不检查的复选框等）保存在内部，并再次加载Isnide Onshow。这样可以确保在程序的运行之间保留所有用户设置。

当他们进行更改（故意或其他方式）导致问题时，问题就来了。我希望能够首先安装应用程序时将表单“重置”回默认设置。

我可以创建一个运行此代码的重置按钮

 FormName.free;
 DeleteFile('FormNameSettings.ini');
 FormName:=TFormName.Create(Application);
 FormName.show;
 

，以执行所需的操作。表单已关闭，清除设置文件（因此，在再次显示时未恢复状态），然后重新创建表单。该表单现在具有原始默认设置。

我的问题是试图将该代码从多种形式轻松调用的函数中。

procedure ResetForm(form:tform;filename:string);
begin
    form.free;
    if fileexists(filename)=true then deletefile(filename);
    <what goes here to recretae the form by the passed tform?>
end;

谁能帮助使该重置程序正常工作？最新的Delphi 11。

Answer 1

要返回新创建的表单，我们实际上需要该表单的VAR参数，但是仅这并不是很优雅，因为一个人不能将派生的表单类别传递给Type tform的VAR参数，并且必须做一个硬铸件以取悦编译器。即使使用返回tform的函数也不好得多，因为结果很可能被分配给了派生表单类的变量，并且还将被编译器拒绝。

多亏了仿制药，我们可以编写一些克服这些限制的代码。由于Delphi不支持独立的通用过程或功能，因此我们将其包装在记录声明中：

type
  TFormUtils = record
  public
    class procedure ResetForm<T: TForm>(var form: T; const filename: string); static;
  end;

我们还需要保存有关以后使用的表单的一些信息：

• 表格的所有者
• 表单

是当前显示的 。

class procedure TFormUtils.ResetForm<T>(var form: T; const filename: string);
begin
  var formOwner := form.Owner;
  var formShowing := form.Showing;
  form.free;
  if fileexists(filename) then
    deletefile(filename);
  form := T.Create(formOwner);
  if formShowing then
    form.Show;
end;