大家看看

Question

TMyComboBox=class(TStringGrid)
 private
   FEdit:TTestCombobox;
 protected
   procedure OnSelectCell(Sender: TObject; ACol, ARow: Longint;
    var CanSelect: Boolean);override;
这样写为什么会错。
报错：Method 'OnSelectCell' not found in base class

Answer 1

OnSelectCell属性其时是一个方法指针。
TStringGrid 中并没有声明 OnSelectCell这个虚拟方法；

Answer 2

就是在你的父类TStringGrid当中没有声明这个函数的

Answer 3

楼上二位说得很清楚了.   procedure OnSelectCell(Sender: TObject; ACol, ARow: Longint;
    var CanSelect: Boolean);
就可以了.

Answer 4

TStringGrid 中并没有声明 OnSelectCell这个虚拟方法，所会出错!