在一个窗体中如何调用另一个窗体返回的数据?最好不要用设全局变量的方法实现!

Question

好似是這樣吧:in Form2:
uses form1;try
fm1 := Tform1.create(self);
fm1.showmodal;finally
fm1.free;
end;

Answer 1

基本上同意上面的，不过我想还要在form1中uese form2,在其关闭时能改变form2的public变量。

Answer 2

unit Form2
..
..
implementation
    uses Form1;procedure ...
beign
  frmTmp := TForm2.Create(Self);
  try
    frmTmp.Work**(Self);
  finally
    frmTmp.Free;
  end;
end;------
Unit Form1;uses Form2;procedure Work**(AParentForm :TForm2);
begin
  Self.Parent** := AParentForm;
end;procedure OnClose;
begin
  Self.Parent**.** := ???
end;