组件制作之二（一个简单组件的制作过程）[10]

  begin

      factive:=a;

      timenum:=0;

  end;

end;

procedure ttimecount.pause;

begin

 if ftimer.enabled then

  ftimer.enabled:=false;

end;

procedure ttimecount.resume;

begin

  if not ftimer.enabled then

    ftimer.enabled:=true;

end;

procedure ttimecount.stop;

begin

  ftimer.enabled:=false;

  fcount:=0;

  timenum:=0;

  caption:='0'

end;

procedure ttimecount.start;

begin

  if (not ftimer.enabled)and(timenum=0) then

     ftimer.enabled:=true;

end;