多窗体问题，急！急！急！ ( 积分: 50 )

L

lizhihong158

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-04

• #1

我做了个小程序，有两个窗体form1,form2，
我希望在运行form2时，读取form1中的Edit1中的值，
关闭form2时将计算后的结果返回到form1的Edit2中。
我用form1.Edit1.text和form1.Edit2.text
运行时出错，请教各位老师该如何实现？请附代码，谢谢！

 

A

andrew57

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-04

• #2

你不会循环引用吧？
这种程序怎么会出错呢！
unit2中：
Form1.edt2.Text := IntToStr(StrToInt(Form1.edt1.Text) * 2);
unit1中：
form2.show;

 

L

lizhihong158

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-04

• #3

我的是
unit1中：
with Tform2.Create(self) do
begin
ShowModal;
free;
end;
unit2中：
Form1.edt2.Text := IntToStr(StrToInt(Form1.edt1.Text) * 2);
还是不行.

 

W

weichao9999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-04

• #4

用form1打开form2，并给form2赋值；form2计算后通过消息将结果发送给form1

 

L

laiaseven

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-04

• #5

unit2中:
Form1.edit2.Text := IntToStr(StrToInt(Form1.edit1.Text) * 2);
ModalResult:=mrok;
运行没有问题呀,
你的报了什么错了哈!

 

D

diecode

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-05

• #6

把报的错误写出来,才好对症下药

 

B

ball_cao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-12

• #7

一个类为什么要直接访问另一个类的published变量？！
为什么不在Tform2中public一个方法用于让form1将edit1的内容传递给它？
为什么不在Tform2中再public一个方法用于让将计算后的结果传给form1，让form1自己修改edit1的内容？

楼主的OO要好好学习啊！！

 

L

lizhihong158

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-17

• #8

问题已解决.