TreeView: Mehrere Knoten markieren

[Redeemer]

Hier gibt’s ja seit Jahren für so ziemlich alle meiner Fragen in der Vergangenheit eine Antwort. Nun habe ich aber auch mit der Suchfunktion nichts gefunden:

Mein Programm soll in einem Standard-TTreeView zur Laufzeit mehrere Knoten markieren, die den vom Benutzer angegebenen Kriterien entsprechen. Sobald ich TreeView.Items[i].Selected := True; setze, verschwinden aber alle anderen Markierungen, obwohl das TreeView Multiselect hat.

Bin für alle Vorschläge dankbar. Frohe Ostern.

[Perlsau]

Offenbar besteht keine Möglichkeit, programmseitig mehrere Nodes gleichzeitig zu selektieren, wie ich eben selbst beim Herumprobieren rausfinden mußte. Eine Alternative wäre die Komponentensammlung Virtual Tree View von Mike Lischke (Freeware), die weitaus mehr bietet als der mitgelieferte TTreeView. Allerdings erfordert Virtual Tree View ein wenig Einarbeitungszeit ... Ich selbst hatte TTreeView zuvor noch niemals verwendet, sondern immer nur Virtual Tree View.

[Bummi]

Das geht schon mit TTreeView, im Demo werden alle "ungeraden" Nodes ausgewählt.

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var
  i: Integer;
  FirstSelect: Boolean;

  Procedure Select(aNode: TTreenode);
  begin
    if FirstSelect then
    begin
      aNode.Selected := true;
      FirstSelect := false;
    end
    else
      tv.Subselect(aNode);
  end;

begin
  FirstSelect := true;
  for i := 0 to tv.Items.Count - 1 do
    if i and 1 = 1 then
      Select(tv.Items[i]);
  tv.SetFocus;
end;

[Redeemer]

Danke Bummi, das hat funktioniert. Es hat zwar teilweise jetzt nicht mehr richtig ent-markiert, aber dann habe ich vorher TreeView.ClearSelection(); aufgerufen und dann geht es.