|

楼主 |
发表于 2009-12-29 09:54:14
|
显示全部楼层
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是启动功能过程中的一个事件。
楼上,看程序这个DoRun事件是自己定义的吧,因为我在X3里找不到这个事件 |
|