Form间edit值的传递 ( 积分: 16 )

L

lizee2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-11

• #1

有两个窗体Form1,Form2, Form1上有一个edit1, 一个ok按钮及close按钮; Form2上有几个edit及add按钮及close; 程序设计顺序是Form1--->Form2--->Form1. 首先进入Form1输入edit1值,确认后要关闭Form1窗口,并创建Form2窗体,并把Form1.edit1值传到Form2.之后又通过add按钮进入Form1取值. 可是,非常奇怪,Form1.edit怎么也传递不到Form2窗体中,用全局变量都不行
各位高手,form间传递值有什么特别注意的地方吗?先谢了

 

D

Delphiguanshui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-11

• #2

哪個是主窗體，按理說應該是可以的。

 

银

银雨辰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-11

• #3

Unit1(Form1)
Uses Unit2;

Unit2(Form2)
Var
aa:string;
首先进入Form1输入edit1值,
确认后Unit2.aa:=edit1.Text
关闭Form1窗口,并创建Form2窗体

 

L

lizee2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-11

• #4

应该算form2时主窗体,这两窗体都只是程序的一部分. 先进入form1,输入edit1的值,然后退出form1并创建form2窗体.
我就有一疑问: form2在未创建之前,是不是不可以在form1中这样赋值:form2.edit3.text=form1.edit.text.
整个语句OK执行动作:

form2.edit3.text=form1.edit.text;
form1.close;
Application.creatform(Tform2,form2);
form2.showmodal;

还有使用太多全局变量应该会影响整速度吧?

 

银

银雨辰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-11

• #5

不可以的
unit2.TempStr=form1.edit.text;
form1.close;
Application.creatform(Tform2,form2);
form2.edit3.text=unit2.TempStr;
form2.showmodal;

 

L

lizee2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-11

• #6

非常感谢银雨辰,照你的方法试过,OK了.谢谢!

分不多,请笑纳!