TTVExpandingEvent = procedure (Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean)
Событие, возникающее перед разворачиванием узла.
Параметры:
Ссылки: TTreeView.OnExpanding