【结贴】show窗体时如何返回数据？**

didi0225

var
  HJFrm :HJSF.TSF;
begin
  HJFrm :=HJSF.TSF.Create(Self.Context);
   if HJFrm.ShowModal = Business.Forms.Controls.mrOk then
     begin
        //do Something 返回数据
     end;
   HJFrm.Free;   
end;
本来是用上面的ShowModal ,关闭窗体HJFrm时做 //do Something 返回数据 。
但现在由于ShowModal 方式不能再操作主窗体，如果使用show方式的话请问如何在关闭窗体HJFrm时做 //do Something 返回数据 。

zfang

可以在HJFrm 这个弹出窗体的public中定义成变量（参数变量或者数据集等），然后在//do Something 返回数据，这里去访问到这个变量就可以了。

didi0225

现在我说的是用show方式
var
  HJFrm :HJSF.TSF;
begin
  HJFrm :=HJSF.TSF.Create(Self.Context);
  HJFrm. Show;  
  HJFrm.Free;   
end;
//do Something 返回数据 这个放在哪?

zfang

不是3楼，还是用1楼，showmodal的方式。
比如HJSF.TSF这个弹出窗体的public中声明了：
lstr : String;

------------------调用弹出窗体时
var
  HJFrm :HJSF.TSF;
begin
  HJFrm :=HJSF.TSF.Create(Self.Context);
   if HJFrm.ShowModal = Business.Forms.Controls.mrOk then
     begin
        if HJFrm.lstr <> '' then//这里
          //do Something 返回数据   
   end;
   HJFrm.Free;   
end;

didi0225

你还没理解我的需求
由于ShowModal 方式不能再操作主窗体 我想用show方式请问这个怎么实现

zfang

show的时候就不好做了，那建议用平台的业务参数吧。

didi0225

最初由 zfang 发布
[B]show的时候就不好做了，那建议用平台的业务参数吧。 [/B]

能否给点资料或者例子

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=461

didi0225

搞好了,结