delphi - 如何在运行时获取表单的实例？

Question

在我的应用程序中，我需要以多种形式显示数据，这些形式完全相同的VCL，事件和过程，因为这些形式的数量取决于我的应用程序，所以我无法在设计中创建所有这些形式-时间。

或者如何在运行时多次复制表单？

Answer 1

假设您的表单被声明为 TForm2，您可以轻松创建它的 10 个实例，如下所示:

var 
  myForms: TArray<TForm2>;
  I: Integer;
begin
  SetLength(myForms, 10);
  for I:=0 to 9 do begin
    myForms[I] := TForm2.Create(Application);  // Application will free the forms on exit
    myForms[I].Show;
  end;
end;

如果您不需要访问表单实例，您可以完全省略数组并编写:

var 
  I: Integer;
begin
  for I:=0 to 9 do begin
    TForm2.Create(Application).Show;  // Application will free the forms on exit
  end;
end;