Source position: comctrls.pp line 1787
type TTVExpandingEvent = procedure(
Sender: TObject;
Node: TTreeNode;
var AllowExpansion: Boolean
) of object;