您如何将信息从一种形式传递到另一种形式，例如在形式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;
对于更复杂的需求，您可以在可以调用的第二种形式上创建要设置的属性或方法，并将信息作为参数传递给过程。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句