A
Aland
Unregistered / Unconfirmed
GUEST, unregistred user!
我的程序有两个From.其中From1调用from2,From2中有EDIT1用来录入
数据。请问：当FROM2结束时FROM1如何 简便地 引用FROM2.EDIT1中的数据？
数据。请问：当FROM2结束时FROM1如何 简便地 引用FROM2.EDIT1中的数据？
O
only you
Unregistered / Unconfirmed
GUEST, unregistred user!
不知你说的是什么意思，能说的再详细写吗？
C
cAkk
Unregistered / Unconfirmed
GUEST, unregistred user!
先在form1里面uses unit2.
然后这样引用:
FROM2.EDIT1
然后这样引用:
FROM2.EDIT1
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
uses unit2;
s:=from2.edit1.text;
s:=from2.edit1.text;
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
啊，慢了16秒 
J
Jams
Unregistered / Unconfirmed
GUEST, unregistred user!
还可以用全局变量来传递
陈
陈君凯
Unregistered / Unconfirmed
GUEST, unregistred user!
上边的人说的是介绍控件的应用方法,我说一下引用全局变量的方法;
窗体一;
.
.
var
Form1:TForm1;
n:integer;
.
.
begin
n:=2;
end;
窗体二:
uses unit1;
.
.
var s:integer;
begin
s:=n;
end;
窗体一;
.
.
var
Form1:TForm1;
n:integer;
.
.
begin
n:=2;
end;
窗体二:
uses unit1;
.
.
var s:integer;
begin
s:=n;
end;
A
Aland
Unregistered / Unconfirmed
GUEST, unregistred user!
前面几位：
不好意思，怪小弟说不清楚。
我的意思是将FORM2.EDIT1的数据传递回FROM1供FROM1使用。
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵，前面几位就是说的你的意思啊
陈
陈君凯
Unregistered / Unconfirmed
GUEST, unregistred user!
无论是Form1调用Form2,还是Form2调用Form1都是一样的
K
Kang
Unregistered / Unconfirmed
GUEST, unregistred user!
form2结束?是不是把它关闭了,在关闭后是不能引用的
你要么在form1中引用完后关闭,要么用一个全局变量做传递
你要么在form1中引用完后关闭,要么用一个全局变量做传递
C
cAkk
Unregistered / Unconfirmed
GUEST, unregistred user!
默认状态下,form2关闭(close)之后并没有free掉,所以可以继续引用他的对象.
除非显式地free乐form2
除非显式地free乐form2
A
Aland
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。