'');

  RegisterPropertyInCategory(''ClockPro'',TClock,''Active'');

  RegisterPropertyInCategory(''ClockPro'',TClock,''BeginTime'');

  RegisterPropertyInCategory(''ClockPro'',TClock,''WakeTime'');

  RegisterPropertyInCategory(''ClockPro'',TClock,''AllowWake'');

  RegisterPropertyInCategory(''ClockPro'',TClock,''OnWakeUp'');

  RegisterPropertyInCategory(''ClockPro'',TClock,''OnTimeUp'');

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

  ///////////////这是delphi5的代码/////////////////////////

  {

   RegisterPropertyInCategory(TClockGategory,TClock,''State'');

   RegisterPropertyInCategory(TClockGategory,TClock,''Active'');

   RegisterPropertyInCategory(TClockGategory,TClock,''BeginTime'');

   RegisterPropertyInCategory(TClockGategory,TClock,''WakeTime'');

   RegisterPropertyInCategory(TClockGategory,TClock,''AllowWake'');

   RegisterPropertyInCategory(TClockGategory,TClock,''OnWakeUp'');

   RegisterPropertyInCategory(TClockGategory,TClock,''OnTimeUp'');

  }

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

end;

重新编译后，做一个测试程序，这时只要组件使用者右键单击Object Inspector选择ArrangeàBy Category就可以看到属性已经被清楚的分类了，


然而，应该清楚的是属性类别绝对不能被滥用，因为过多的使用该技术会使组件使用者为了找到某一个属性变的更加麻烦和摸不着头脑。

在接下来的文章里，我们将继续研究两个很有用的组件特性。

（未完待续）