为接口类扩充事件，遇到的问题？？

Question

TxxxX = class(TOleControl)
  private
    FIntf: IxxxX;
    function  GetControlInterface: IxxxX;
    function GetDoubleProp(const Index: Integer): Double;//自动增加
    function GetSmallintProp(const Index: Integer): Smallint;//自动增加
  protected
    procedure CreateControl;
    procedure InitControlData; override;
    //手动增加
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
    ....
end;为什么会自动增加这两个事件，是什么原因，请各位指点？？？

Answer 1

我这没有啊是不是你下面定义了DoubleProp和SmallIntProp属性啊？