Source position: virtualtrees.pas line 1838
type TVTKeyActionEvent = procedure(
Sender: TBaseVirtualTree;
var CharCode: Word;
var Shift: TShiftState;
var DoDefault: Boolean
) of object;