【结帖】窗口调用的问题**

lmz

希望实现的效果：
A功能a窗体调用B功能b窗体，a调用时使用“RunFunc”打开b窗体，进行函数传递，希望等b释放后，再执行后续语句，如果b没有释放就不应该执行下去，如何实现？

SYSTEMCORE.TSYSTEMCORE.FuncManager.RunFunc(Context, '', 'Biz:\CGJCZCXT\GetItem.Func',para, nil, TRUE);
希望上述被调用窗体释放之后再执行下面这句。

Result:=GETItem.TItemChoose.GetItemStr4Pub();

gaihl

楼主可以试试下面这个方法,让A判断B的一个态值. B未执行完时,设置为False, 执行完后,设置为True.  这样, A就可以跳出判断,续继向下执行了.
  while true do
  begin
    if B.IsOk then Break;   //判断B是否执行完了
    Business.Forms.Forms.Application.ProcessMessages;  //出让系统控制权
    SysUtils.Sleep(100);    //休息100毫秒,减少系统占用率
  end;

lixy

利用消息机制，请搜索 分享 alang 的帖子

lmz

2楼，使用SYSTEMCORE.TSYSTEMCORE.FuncManager.RunFunc（）怎样获得B窗体？

lmz

RunFunc返回的就是B窗体是么？

gaihl

用业务参数吧, 建一个业务参数来存放是否执行完成的标志吧.

lmz

搞定！