Source position: treegrids.pas line 2106
type TTGKeyActionEvent = procedure(
Sender: TBaseTreeGrid;
var CharCode: Word;
var Shift: TShiftState;
var DoDefault: Boolean
) of object;