Treeview multiselect

[schlagzu]

Hallo,

ich habe ein Problem für das es sicher eine simple Lösung gibt. Ich habe ein TreeView in der eine Ordnerstruktur dargestellt wird. Nun will das wenn ein Ordner Ausgewählt wird, alle Unterordner und Daten auch selektiert werden. Kann mir jemand helfen, ich steh aufm Schlauch.

MfG, schlagzu

[Bummi]

Delphi-Quellcode:

Procedure SelectNodeWithAllSubNodes(N:TTreenode);
var
  I:Integer;
begin
  if not n.Selected then n.TreeView.Select(n,[ssCtrl]);
  for I := 0 to n.Count - 1 do
     SelectNodeWithAllSubNodes(n.Item[i]);
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  Treeview1.MultiSelect := true;
  if Assigned(Treeview1.Selected) then
    SelectNodeWithAllSubNodes(Treeview1.Selected);
  Treeview1.SetFocus;
end;