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

发布时间：2020-12-15 09:28:39 所属栏目：大数据来源：网络整理

导读：如何将信息从一个表单传递到另一个表单,例如在表单1的编辑中输入的值,当按下按钮时,编辑中的信息将被发送到表单2上的标签. 我怎样才能做到这一点？解决方法如果它只是将一个表单上的编辑控件的内容传递给另一个表单上的标签,则只需设置Label.Caption(表单

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

我怎样才能做到这一点？

解决方法

如果它只是将一个表单上的编辑控件的内容传递给另一个表单上的标签,则只需设置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;

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!