Announcement

Collapse
No announcement yet.

TreeView Problem

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • TreeView Problem

    Hallo,<br>Ich muss mit der Komponenten "TreeView1" arbeiten und weiß garnicht wie man damit umgeht.<br> Ich will wiessen wie man einen Konenten und einen Unterkonten erzeugen kann und wie man den Makierten Text von dieser Komponenten rausgriengen kann were net. wenn es gleich mit ein Beispiel währe...

  • #2
    Hi,

    hier ein einfaches Beispiel:

    <pre>
    <code><font size=2 face="Courier New"><font color="#000000"><i>//Einf&uuml;gen eines Hauptknotens
    //Soll der Knoten auf der Hauptebene erscheinen
    //so sollte als &uuml;bergeordneter Knoten NIL angeben werden
    </i><b>procedure </b>TForm1.Button1Click(Sender: TObject);
    <b>begin
    </b>TreeView1.Items.Add(<b>NIL</b>,'ROOT');
    <b>end</b>;

    <i>//Einf&uuml;gen eines Kinderknotens
    //Als Parentknoten wird der gew&uuml;nschte Hauptknoten
    //&uuml;bergeben
    </i><b>procedure </b>TForm1.Button2Click(Sender: TObject);
    <b>begin
    </b>Treeview1.items.AddChild(Treeview1.items[0],'Child');
    <b>end</b>;

    <i>//Ermittlung des Textes eines Knotens
    //Mit den Methoden GetFirst,GetLast usw
    //Kann man sich durch die Hierarchie hangeln
    //Alternativ (wenn man alle Knoten will) kann
    //man auch einfach mit einer For-Schleife
    //durchiterieren.
    </i><b>procedure </b>TForm1.Button3Click(Sender: TObject);
    <b>begin
    </b>ShowMessage(treeview1.Items[0].Text);
    <b>end</b>;
    </font>
    </code></pre>

    Ich hoffe das hilft dir weiter

    Uw

    Comment


    • #3
      Anmerkung:
      Der markierte Knoten muss ja nun nicht immer das erste Element sein. ;o) Also würde ich die Zeile in "Button3Click" so ändern:

      <PRE>
      ShowMessage(treeview1.Selected.Text);
      </PRE>

      Damit erhältst du den Namen von dem Element, das im Moment selektiert ist.<br><br>
      Gruß,<br>Mathias

      Comment


      • #4
        Danke..

        Comment

        Working...
        X