Thema: Delphi Treeview:

Einzelnen Beitrag anzeigen

Volker Z.

Registriert seit: 4. Dez 2012
Ort: Augsburg, Bayern, Süddeutschland
419 Beiträge
 
Delphi XE4 Ultimate
 
#7

AW: Treeview:

  Alt 18. Mai 2013, 23:46
Hallo,
Zitat:
Nur solche Ordner wie {3da26cd63df38a2b200c1842774c} möchte ich natürlich nicht mitdrucken,
daher will ich solche Einträge, die ich nicht sehn will, selektieren(Multiselect) und per
Button "Nicht mitdrucken" ausklammern
Wenn Du alle Knoten, die Du nicht drucken möchtest markierst, dann kannst Du ja mal folgendes versuchen
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);

  procedure CheckNode (Node : TTreeNode);
  begin
    while Assigned (Node) do
      begin
        if not Node.Selected then
          begin
            Memo1.Lines.Add (Node.Text);
            CheckNode (Node.getFirstChild)
          end;

        Node := Node.getNextSibling
      end
  end;

begin
  Memo1.Lines.Clear;
  CheckNode (Treeview1.Items [0])
end;
Gruß
Volker Zeller
  Mit Zitat antworten Zitat