+ vorm Ordnere in der ShellTreeView

[mirage228]

Zitat von angos:

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;

Lieber so...

Delphi-Quellcode:

procedure TForm1.TreeViewExpanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
  AllowExpansion := Node = TreeView.Items[0];
end;

mfG
mirage228