如何在对StringGrid中的Cell赋值时,触发一个事件?

Question

如何在下面几种情况下触发一个事件?
1.StringGrid1.Cells[1, 1] := 'A';2.StringGrid1.Rows[1] := strRow;3.StringGrid1.Cols[1] := strCol;4.直接在Cell中输入时;(这个会触发OnSetEditText)

Answer 1

我是想写个TMyGird继承自TStringGrid,然后在出现上述情况的时候触发一个事件,
但是我如何知道上述4种情况发生了呀?

Answer 2

将DefaultDrawing设FALSE
在OnDrawCell事件里判断,不过DrawCell也要自己完成了

Answer 3

楼上的说法能实现吗?似乎实现起来比较别扭吧?人气:81
我知道有N多的人来过本贴,却没人懂这个!
看来Delphi的高手们早已经随着Borland的末落而渐渐远去,

Answer 4

在 OnKeyPress 事件里写就是了

Answer 5

tmygrid = class(TStringgrid)
  private
    function GetCells(ACol, ARow: Integer): string;
    procedure SetCells(ACol, ARow: Integer; const Value: string);
  public
    property Cells[ACol, ARow: Integer]: string read GetCells write SetCells;
  end;重新声明Cells[ACol, ARow: Integer]属性，在SetCells方法里加上inherited和你想添加的事件

Answer 6

SetCells在TStringGrid类中根本就是静态方法,而不是Dynamic或Virtual方法,
你如何继承以及触发该方法呀?