Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by kaiser1401,
13. Dez 2006
Aber wo ja eh nur zwei ebenen da sind dacht ich mir es könnte reichen. außerdem find ich es etwas übersichtlicher... ;-)
btw: Hört dein Code nicht mit "Herbert" auf? NextSibling nimmt doch nur die Knoten gleicher Ebene zu einem gemeinsammen Parent, oder?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by kaiser1401,
13. Dez 2006
Versuch es mal damit:
Procedure Button1.Click(Sender: TObject);
var node: TTreeNode;
Begin
node:=TreeView1.Items.GetFirstNode;
while node <> nil do
begin
if node.level = 1 then
Showmessage(node.Text);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by kaiser1401,
13. Dez 2006
Wenn du das erste child hast könntest du das mit getNextSibling machen (methode des TTreeNodeItem) wenn es der letzte Unterknoten der wurzel auf dieser ebene (level) war gibts NIL zurück.
Edit:
Was mir noch aufgefallen ist (bei xZise):
...
for i := 0 to TreeView1.Items.Count - 1 do begin
....
end;
...