如何使表单访问变量与运行时创建的表单相同

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"，因为我没有分配任何use子句。

有没有任何方法可以从Form2访问"克隆Form2"，或者从"克隆Form2"访问Form2？

Answer 1

如果您想访问表单的多个副本，您需要将它们组织到某个列表/数组中。

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