【搞定】功能弹出后，功能流转后窗体关闭不了**

jiahaiminghr

楼主，你尝试用GetBizObject来获得窗体，不要再用1楼的方法了。

lixy

这个样可以：
unit LCCSRKGN;

interface

uses
  Business.System, Business.Model;

type
  TLCCSRKGN = class(TFunc)
  private
    {private declarations}
  public
    tmpFrm: TZCT;
   procedure DoRun; override;
    {public declarations}
  end;

implementation

procedure TLCCSRKGN.DoRun;
var
   a:tbizclassurl;
begin
     a:=tbizclassurl.Create;
     a.BizURL.URL:='Biz:\OPERATION\LCCSRKGN.Func\ZCT.Form';
tmpFrm:= TZCT(context.GetBizObject(a));
a.Free;
tmpfrm.Show;


inherited;
end;


主窗体
procedure TZCT.BizFormClose(Sender: TObject; var Action: TCloseAction);
begin
     Action := TCloseAction.caFree;
     FuncBroker.Func.Terminate;
end;

atiger

还有问题吗？没有就结了

kd_xjx

使用11楼的办法还是不能解决问题，现象不变。
12楼的方法不能让功能的主窗体全屏显示。
麻烦继续跟帖。

atiger

'Biz:\OPERATION\LCCSRKGN.Func\ZCT.Form' 这个窗体的大小
参考
http://bbs.justep.com/forum.php?mod=viewthread&tid=11537

kd_xjx

……不是这样的……
请版主仔细看下帖子。
我需要的全屏是让功能窗体在平台外部显示。

alang

12楼的做法，我测试了，没有问题的

kd_xjx

这是按照12#中的方法修改后的功能代码：
unit YCSBJXDBZ;

interface

uses
  Business.System, Business.Model;

type
  TYCSBJXDBZ = class(TFunc)
  private
    {private declarations}
  public
    tmpFrm: TPRITICKETEDIT;
    procedure DoRun;override;
    {public declarations}
  end;

implementation

procedure TYCSBJXDBZ.DoRun;
var
  a : tbizclassurl;
begin
  try
    a := tbizclassurl.Create;
    a.BizURL.URL:='Biz:\DDJHXT\YCSBJXDBZ.Func\PRITICKETEDIT.Form';
    tmpFrm:= TPRITICKETEDIT(context.GetBizObject(a));
  finally
    a.Free;
  end;
  tmpfrm.Show;
  inherited;
end;

end.

弹出的窗体，有一瞬间是全屏，但不能完全显示出来，只能看到边框，随后就又内嵌到平台中了。

alang

这么功能的MainFormName 属性一定要设置成空

kd_xjx

OK了，结贴吧。谢谢各位版主