如何使在 运行 时间内创建的相同表单的表单访问变量？

Question

我有一个 form2 (TForm2)，它包含一个按钮，可以创建一个完全相同的表单。

按钮代码：

procedure TForm2.Button1Click(Sender: TObject);
var
 NewForm: TForm2;
begin
 NewForm := TForm2.Create(Self);
 NewForm.Show;
end;

通过这种方式，我将拥有一个 Form2 和一个 'clone Form2'，但我将无法从 Form2 访问 'clone Form2'，因为我没有分配任何 uses 子句。

有没有办法从 Form2 访问 'clone Form2'，或者从 'clone Form2' 访问 Form2？

Answer 1

如果要访问多个表单副本，需要将它们组织成一些 list/array。

这样的列表已经存在 - TScreen.Forms，但你需要一个想法 - 如何选择所需的实例。