【搞定】打开一个功能前希望做一些检查

lixy

unit YWGN13;

interface

uses
  Business.System, Business.Model;

type
  TYWGN13 = class(TFunc)
  private
    {private declarations}
  public
       procedure DoRun;override;
    {public declarations}
  end;

implementation
procedure TYWGN13.DoRun;
begin
  //加些判断是否关闭功能。
     self.Terminate;
end;

end.

dorun是启动功能过程中的一个事件。

crskyp

好了,谢谢,结帖吧.

zfang

谢谢反馈，结帖