TreeView: Mehrere Knoten markieren

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