如何使打开的Form窗口返回一定值？(100分)

chonghai · 2002-05-29

我的意思是，比如：
GetForm1ReturnValue(p1,p2);这个函数可以打开一个窗口，然后在窗口关闭的时候
返回一定的数值。
请教各位大富翁，在这里先谢谢了！

yzhshi · 2002-05-29

ModalResult:=数值

sydan · 2002-05-29

可以用全局變量來實現啊!
好像在Delphi中還不能像在VFP中一樣做到哦![

]

yzhshi · 2002-05-29

对了，ShowModal返回的数值就是你设置ModalResult的数值。
执行ModalResult:＝...时，程序自动关闭窗体，就是不不要也不能在这后面添加Close

chonghai · 2002-05-29

不知道大家有没有使用过InputBox（）函数。
例如： s := InputBox('请输入增加的行数', '数值：', '5');
我需要的是比他更复杂一点的应用。
需要返回一个数组，或者比较多的数值，
大家提出来都只是能够返回数值而已，
而且这个数值只是Int（？）。

yzhshi · 2002-05-29

对呀，如果你要返回其他数值，那么就需要使用全局变量或者指针了。
还有，InputBox只能返回一行字，看他的VCL代码就清楚了，所以除非你自己建立窗体。

chonghai · 2002-05-31

比如，我要返回一个String，那么要如何做呢？
谢谢。

Pearl. · 2002-05-31

外面包一层调用呗。比如定个函数返回string, 在函数中用showmodal打开你的form, 函数返回前把form中得某个全局变量读出来返回给用户不就可以了？

章慧 · 2002-06-01

不愿意包装函数，就设置一个隐藏的Label来保存，就可直接从外部访问了

硬木花椒 · 2002-06-01

在函数里面生成/显示窗体？
function xxx(参数列表）：返回类型
var
xform:tform1;//如果显示窗体就不要这个了
其它变量
begin
生成窗体/显示窗体；
传参数；
返回结果；
窗体释放或关闭；
end;
符合要求嘛？

chonghai · 2002-06-15

谢谢各位的回答，还是使用了公用变量，呵呵。