L ’événement ItemExpand permet d ’être informé de l ’expansion ou du repli des éléments d ’un élément
On tv.ItemExpand do begin actif = tv.GetSelection(); Message( " Elément modifié: " :tv.GetText( actif)); end