将信息从一种形式传递到另一种形式？

Question

如何将信息从一个表单传递到另一个表单，例如在表单1的编辑中输入的值，当按下按钮时，编辑中的信息将被发送到表单2上的标签。

我该怎么做？

Answer 1

如果只是将一个表单上的编辑控件的内容传递给另一个表单上的标签，则只需设置Label.Caption（表单上的组件是该表单的已发布属性）。

假设您已将包含TForm2的单元添加到TForm1单元并创建了两个表单，并且它们都具有默认名称：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Label1.Caption := Edit1.Text;
end;

如果您尚未创建第二个表单，则可以同时指定标签标题。此示例显示如何创建新表单，设置标签标题，显示表单并等待用户关闭它，然后释放表单：

procedure TForm1.Button1Click(Sender: TObject);
var
  NewForm: TForm2;
begin
  NewForm := TForm2.Create(nil);
  try
    NewForm.Label1.Caption := Edit1.Text;
    NewForm.ShowModal;
  finally
    NewForm.Free;
  end;
end;

对于更复杂的需求，您可以在第二个表单上创建要设置的属性或方法，将信息作为参数传递给过程。