TTVCollapsingEvent = procedure (Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean)

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

Параметры:

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

Ссылки: TTreeView.OnCollapsing