函数调用(100分)

M

mywuti

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #1

比如 function fff(ss:string):string;

其中ss在窗体2上结合用户操作做一些处理，然后赋给fff.
当函数fff在另外窗体1上调用时只得到初始化窗体2时fff的初值，
怎样实现获得直至窗体2消失时fff的值？

 

M

mywuti

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #2

就象一些消息框函数一样。

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #3

>>就象一些消息框函数一样。
如果要实现这个的话用form2.ModalResult
eg:
Begin
Form2.ShowModal;
If Form2.ModalResult = mrOk Then
else
if form2.ModalResult =mrNo then
else

End;

另外在form2.onclose 里写
form2.ModalResult := //你认为的值如mrOk,mrNo,mrYes.....

 

F

flyat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-06

• #4

ShowModal调用的窗体就是有模式的窗体，直至窗体消失正如题。

 

P

pnljh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-06

• #5

同意完颜康的做法，也可以在按钮上设置ModalResult属性，当设此属性不为mrnone时，
不用写任何休码，点击此按钮将关闭表单，关闭后，ModalResult的值为按钮的ModalResult
属性值。

 

M

mywuti

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-07

• #6

多人接受答案了。