关闭主窗体的方法

atiger

有两种方法：

方法一、在BizFormShow事件中是无窗体法关闭当前窗体的，如果需要关闭窗体，那么重载功能的DoRun方法，加入调用窗体判断是否进入主窗体！

步骤：
1、打开业务功能，
2、按F12切换到代码页，重载DoRun，代码示例如下：
  TYWGN1 = class(TFunc)
  private
    {private declarations}
  protected
    {protected declarations}
    procedure DoRun; override;
  public
    {public declarations}
  end;

implementation

procedure TYWGN1.DoRun;
begin
  Dialogs.ShowMessage('aa');
  MainForm := nil;
end;

只要在方法DoRun中有：MainForm := nil; 功能就会终止运行。


方法二、在功能的Creat中终止，一般情况下功能关闭也关闭相应的主窗体，代码示例参考如下：

procedure TYWGN2.FuncCreate(Sender: TObject);
begin
  Dialogs.ShowMessage('test');
  self.Terminate;  //终止功能运行
end;