Hi,
ja das ist möglich in dem du das Event von oben noch ein bisschen änderst. Folgender Code lässt das expanden nur bei dem ersten Node zu
Delphi-Quellcode:
procedure TForm1.TreeViewExpanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
begin
if Node = TreeView.Items[0] then
AllowExpansion := True
else
AllowExpansion := False;
end;
gruß