【搞定】如何关闭没有主窗体的功能**

qsc800528

我的功能没有主窗体,我只想让这个功能实现弹出一个Dialog窗口,但是我弹出一个窗口后,没有主窗口如何关闭功能?
功能只有如下代码:

procedure TZDBHWHGN.FuncCreate(Sender: TObject);
var
   AutoNumberForm:TAutoNumberForm;
begin
     AutoNumberForm:=TAutoNumberForm.Create(self.Context);
     try
        if AutoNumberForm.Execute then ;
     finally
            AutoNumberForm.Free;
     end;
end;

alang

你应该重载 Func.DoRun方法
取消功能的 MianFormName 属性
在DoRun中弹出窗体显示就可以了

另外是FormShowModal

alang

楼主长时间没有反馈，帖子先结了，有问题请开新贴。

qsc800528

我使用的是self.Terminate; 结束的功能

alang

谢谢楼主反馈