如何在传递表单参数？

Question

两个表单 form1，是主窗体，form2是子窗体，点击form1上的按钮，打开form2，在form2上作出某种选择后，将选择的结果，比如一个字串，返回到form1中的edit1中，请问如何做》新手。谢谢全面点的。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.Button1.Caption := 'changed...';
end;

Answer 2

不知道你需要Form2的显示模式是什么 如果这个不行的话。//在Form1中设置个变量
var
 Form1:TForm1;
 strResult:String;
........
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
  Form1.Edit1.Text:=StrResult;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
  StrResult:='你需要传递的内容';
end;

Answer 3

1.在Form1所在的Unit1的interface部分引用 Unit2单元，
2.在Form2所在的Unit2的implementation部分引用Unit1单元，
3.在Form2中操作部分写下如下代码：
Form1.Eidt1.Text := 'xxxxx....';