通过实例看VCL组件开发全过程（三）[4]

class function tclockgategory . description:string;

begin

 result:=’our component clock description’;

end;

////////////////////////////////////////////////////////////////////////////////////

接下来我们要做的就是修改register过程：

procedure register;

begin

  registercomponents('clockandtime', [tclock]);

  ////////////这是delphi7的代码/////////////////////////////

  registerpropertyincategory('clockpro',tclock,'state');

  registerpropertyincategory('clockpro',tclock,'active');

  registerpropertyincategory('clockpro',tclock,'begintime');

  registerpropertyincategory('clockpro',tclock,'waketime');