delphi edit1取值 问题

Question

主窗体Form1，有edit1,要显示form2查询时使用的条件值（from2.edit2).
现在form1中dbgrid1已经正常显示通过form2.edit2(select * from A where epo='''+edit2.text+'''and ldate between lpt1 and lpt2)查询的结果。
现在要在form1上单独显示form2.edit2.text给form1.edit1.
如何赋值？

Answer 1

form1 上uses unit2;
form1.edit1.text:=From2.edit2.text;

Answer 2

估计还需要在form2.edit2.text的退出事件上写上赋值语句

Answer 3

因为form2已经uses unit1(form1).
我这样做，在form1上定义全局变量public a:string;
然后在form2上把edit2值赋给form1.a:=edit2.text;
可是在form1上，edit1.text:=a,不知道为什么取不到值？

Answer 4

那要看你在什么事件中触发的上述操作
然后你要确定edit1.text:=a是跟在form1.a:=edit2.text;的后面执行的吗？

Answer 5

是两个不窗体中。
from1.a:=form2.edit2.text是跟在Button1.click后面；
在from1窗体的show事件中，edit1.text:=a

Answer 6

在form2.edit2.text的退出事件上写上赋值语句:
from1.edit1.text:=form2.edit2.text;

Answer 7

Form1上uses Unit2;
Form2上usse Unit1;
procedure TForm2.Edit2Exit(Sender: TObject);
begin
     Form1.edit1.text:=Form2.edit2.text;
end;