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

kd_xjx

功能弹出后，功能流转后窗体关闭不了。
有一个流程当中的功能环节，由于需求是要弹出全屏显示，这样我们在功能中添加的实现代码：
type
  TYCSBJXDBZ = class(TFunc)
  private
    {private declarations}
  public
   procedure DoRun;override;
    {public declarations}
  end;

implementation

procedure TYCSBJXDBZ.DoRun;
var
  lForm : TPRITICKETEDIT;
begin
  lForm := TPRITICKETEDIT.Create(Context);
  lForm.Show;
end;

但是该功能使用平台中流程的标准动作流转后，弹出的窗体无法关闭。功能窗体剩下一个空白的界面。
请问如何实现这样的需求？

jiahaiminghr

在窗体中加入一下事件：
procedure TDDSQ.BizFormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := TCloseAction.caFree;
end;

但是窗体需要楼主自己关闭一下。

kd_xjx

最初由 jiahaiminghr 发布
[B]在窗体中加入一下事件：
procedure TDDSQ.BizFormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := TCloseAction.caFree;
end;

但是窗体需要?..

以下省略...... [/B]

窗体需要我自己关闭？
怎么关闭呢？应该怎么写？流转后不是可以自己关闭功能窗体的吗？
我现在是流转后，功能窗体变成了一个空白的窗体，然后在关闭这个空白窗体时会报一个平台的错误。

jiahaiminghr

在窗体中加入2楼代码，可以保证窗体在关闭时被释放掉。

否则，系统不允许释放该功能

jiahaiminghr

窗体你可以手工关闭，也可以写代码关闭。

kd_xjx

怎么关闭呢？应该怎么写？在什么事件中写？
流转后不是可以自己关闭功能窗体的吗？

jiahaiminghr

因为楼主没有用系统标准的方法来运行功能主窗体，导致流程和功能的环境无法自动释放。
所以需要你手工先把窗体释放掉。

关闭窗体的方法很简单：
你可以在窗体上放一个button，在它的单击事件中执行窗体的close方法来关闭。

kd_xjx

我现在是流程流转后窗体无法关闭，在FlowOut事件中调用窗体的Close方法无法正常关闭。会报错。
麻烦您重现一下我描述的问题，给出一个解决的办法。谢谢！

jiahaiminghr

楼主，你自己在窗体上放个button，单击事件中执行

FlowBroker1.FlowControl.FlowOut(nil); //流转
Close; //关闭当前窗体

kd_xjx

按照您的方法还是不能正常关闭窗体，麻烦您重现一下给想个办法，谢谢：