у TStringGrid событие OnSetEditText:
Код:
TSetEditEvent = procedure (Sender: TObject; ACol, ARow: Longint; const Value: string) of object;
property OnSetEditText: TSetEditEvent
OnSelectCell:
Код:
TSelectCellEvent = procedure (Sender: TObject; ACol, ARow: Longint;
var CanSelect: Boolean) of object;
property OnSelectCell: TSelectCellEvent