模式窗体怎样 返回参数。 (15分)

  • 主题发起人 主题发起人 devexpress
  • 开始时间 开始时间
D

devexpress

Unregistered / Unconfirmed
GUEST, unregistred user!
在form1的buttom1调用form2

form2:=Tform2.create(application);
form2.showmodal;

在from2有edit1, edit2, 我想在form2 的 modalresult:=mrok 里把

edit1, edit2 返回到 form1的两个全局字符变量 s1, s2

怎么做
 
太简单了!老兄,这问题别在这里混!
 
既然是全局的,那么你就在Form的Close里面赋值。
一般我是这么做的
type
TFormX = class(TForm)
……
public
property S1: string read FS1;
property S2: string read FS2;
end;

然后这么调用:
with TFormX.Create(nil) do
try
ShowModal;
if ModalResult = mrOk then
Result1 := S1;
Result2 := S2;
finally
Free;
end;
 
多人接受答案了。
 
后退
顶部