调用某一个form,在form关闭时,想要带出form上的某个控件(如edit1.text)的值给当前调用它的form用?怎么办?

Question

你可以直接这么写:
Form1.Edit1.Text:=Form2.Edit1.Text。

Answer 1

form2:=tform2.create(self);
if form2.showmodal=mrok then
 form1.edit1.text:=form2.edit1.text
form2.free;
form2:=nil;

Answer 2

问题时我的form2已经关闭,Form2.Edit1.Text的值还存在吗?

Answer 3

关闭还在
vmao(微猫）正确

Answer 4

不是已经：
   Form1.Edit1.Text:=Form2.Edit1.Text了吗？
难道关闭form2会影响Form1,不懂。

Answer 5

当form1调用form2时
在unit2中use unit1,然后就可以进行赋值了.
form1.edit1.text:=form2.edit1.text;

Answer 6

对不起,没说清楚,我的意思是,这个form2还要别的form调用,不单只有form1调用,因此我不能在
form2里写具体的 Form1.Edit1.Text:=Form2.Edit1.Text 因为此处的form1是不定的.因此我必须在form2关闭后把Form2.Edit1.Text 这个值带出来

Answer 7

那就这样罗：
var
  tmp : string;form2:=tform2.create(self);
if form2.showmodal=mrok then
tmp:=form2.edit1.text
form2.free;
form2:=nil; form1.edit1.text := tmp;
...

Answer 8

在onclosequery中做事件
Form1.Edit1.Text:=Form2.Edit1.Text。