TTreeView - Ebene Abfragen?

[Real-TTX]

Huhu,

Gibt es eine Möglichkeit Abzufragen in welcher Ebene ein Object ist? Hier ein paar Schnippsel zum verstehen:

BSP:

So sieht mein Baum aus:

Delphi-Quellcode:

ROOT
-Gruppe1
--benutzer1
--benutzer2
--benutzer3
-Gruuppe2
--benutzer1
--benutzer2
--benutzer3
-Gruppe3
-Gruppe4
--benutzer1
--benutzer2
--benutzer3

Ich mach es im moment mit :

Delphi-Quellcode:

if (TreeViewLoad.Selected.Text = TreeViewLoad.Items.GetFirstNode.Text) then
  begin
    // ... was machen wenn "root" ausgewählt ist...
  end else
  begin
    if TreeViewLoad.Selected.HasChildren then
    begin
      // ... Wenn Gruppe Ausgewählt ist....
    end else
    begin
      // ... Wenn Benutzer Ausgewählt ist....
    end;
  end;

Geht auch, solange jede Gruppe auch Benutzer (Childs) hat. Wie kann ich das umgehen? Ich will die Ebene Abfragen. Bsp:

Root = 0
Gruppe = 1
Benutzer = 2 ... Ganz einfach...

Kennt jemand ein Trick dazu?

Danke Vielmals im vorraus...

Gruß, Real-TTX

[Die Muhkuh]

Hi,

Delphi-Quellcode:

if TreeView1.Selected.Level = 0 then
  // Root

if TreeView1.Selected.Level = 1 then
  // Gruppe

if TreeView1.Selected.Level = 2 then
  // Benutzer

[Real-TTX]

Zitat:

Zitat von Die Muhkuh

Hi,

Delphi-Quellcode:

if TreeView1.Selected.Level = 0 then
  // Root

if TreeView1.Selected.Level = 1 then
  // Gruppe

if TreeView1.Selected.Level = 2 then
  // Benutzer

Danke dir vielmals... Ich bin echt enttäuscht , dass ich nicht selber darauf gekommen bin... Dank dir ! :)

[Die Muhkuh]

Kein Problem.

War mir eben selbst nicht ganz sicher, ob Level stimmt, ich verwechsel das gerne mit anderen Eigenschaften.

[nicodex]

Wenn man den Konstanten "Namen" gibt, dann kann den Code in drei Tagen auch noch Lesen :)

Delphi-Quellcode:

type
  TMyTreeNodeLevel = (
    mytnlRoot  = 0,
    mytnlGroup = 1,
    mytnlUser  = 2
  );
//...
var
  Node: TTreeNode;
//...
begin
  //...
  case TMyTreeNodeLevel(Node.Level) of
    mytnlRoot:
      begin
        //...
      end;
    mytnlGroup:
      begin
        //...
      end;
    mytnlUser:
      begin
        //...
      end;
  end;
end;

Wenn die Hierarchie nichts mehr mit dem "Level" des Knotens zu tun hat, dann kommst du nicht umhin, die Informationen an den jeweiligen Knoten zu hängen.