起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 1130|回复: 0

关闭主窗体的方法

[复制链接]
发表于 2004-12-31 10:25:02 | 显示全部楼层 |阅读模式
有两种方法:

方法一、在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;
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2024-3-29 05:57 , Processed in 0.046892 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表