如何定义自己的组件中的 Method！

Question

各位：　　如何定义自己的组件中的　Method！　　多谢

Answer 1

就是写procedure 或function 拉。
首先要定义一个类
写在private里的是是它的私有方法，写在protected是保护方法，public是公有方法。
方法可以是抽象的加abstract指示，是虚拟的加virtual指示，方法可以重载父类虚拟方法
加override.等等吧，例子如下：
type
  TPerson=Class (TObject)
  public
     procedure Say;virtual;//虚拟方法，后类可以重载
  end;
type 
  TMan=Class(TPerson)
  public
     procedure Say;override//重载父类方法
  end
implementation
自己写实现就可以了