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

  begin

      ftimer:=ttimer.create(self);

      ftimer.enabled:=false;

      ftimer.interval:=1000;

      ftimer.ontimer:=ftimertimer;

  end;

//以下是设置外观的

  procedure setview;

  begin

    width:=100;

    height:=50;

    color:=$000000;

    font.color:=$ffffff;

    font.size:=14;

    font.style:=[fsbold,fsunderline];;

    bevelouter := bvlowered      ;

    caption:='0';

  end;

begin

  inherited create(aowner);

  fcount:=0;

  finterval:=tenm;

  factive:=false;

  timelen:=600;//十分钟，六百秒

  timenum:=0;