TTVExpandingEvent = procedure (Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean)

Событие, возникающее перед разворачиванием узла.

Параметры:

• Sender - источник события.
• Node - узел.
• AllowExpansion - позволить развернуть.

Ссылки: TTreeView.OnExpanding