Source position: treegrids.pas line 2002
type TTGFocusChangeEvent = procedure(
Sender: TBaseTreeGrid;
Node: PTreeGridNode;
Column: TColumnIndex
) of object;