+ vorm Ordnere in der ShellTreeView

[angos]

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ß