Treeview multiselect

[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;