Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi VirtualStringTree nodes und childs (https://www.delphipraxis.net/125143-virtualstringtree-nodes-und-childs.html)

berndn 1. Dez 2008 14:36


VirtualStringTree nodes und childs
 
Hallo, ja wieder eine Frage zum Thema VirtualStringTree.

In dem Beispiel hier: http://www.delphipraxis.net/internal...t.php?t=147515 wird ja folgende Struktur gebildet:

Delphi-Quellcode:
node
  subnode
  subnode
  subnode
node
  subnode
  subnode
  subnode
Mit vst.getfirst erhalte ich den ersten knoten. Kann ich den ersten Knoten bzw den zweiten Hauptknoten auch irgendwie direkt über einen Index anspringen ?
Also irgendwas wie

node := vst.node[0] bzw node := vst.node[1] für den 2. Hauptknoten.

Habe bisher sowas nicht gesehen.

Danke schon mal.

SauberMann 1. Dez 2008 16:42

Re: VirtualStringTree nodes und childs
 
Delphi-Quellcode:
vst.getfirst.getnext
grüße

berndn 2. Dez 2008 12:57

Re: VirtualStringTree nodes und childs
 
Zitat:

Zitat von SauberMann
Delphi-Quellcode:
vst.getfirst.getnext
grüße

Danke SauberMann

Nun zurück zu vst. Mit vst.getfirst komme ich an den ersten Knoten. Bei meinen Tests mit getnext und getnextsibling habe ich herausgefunden das ich mich scheinbar nur mit getnextsibling an den nächsten Hauptknoten vorarbeiten kann.

Delphi-Quellcode:
procedure TForm2.Button3Click(Sender: TObject);
var
  daten : TOAutos;
  gruppe : TOAutoMarken;
  node: PVirtualNode;
begin
  node:=vst.GetFirst;
  showmessage('Anzahl Kind node nach GETFIRST: ' + IntToStr(vst.ChildCount[node]));
  node:=vst.GetNext(node);
  showmessage('Anzahl Kind node nach GETNEXT: ' + IntToStr(vst.ChildCount[node]));
  node:=vst.GetFirst;
  showmessage('Anzahl Kind node nach GETFIRST: ' + IntToStr(vst.ChildCount[node]));
  node:=vst.GetNextSibling(node);
  showmessage('Anzahl Kind node nach GETNextSibling: ' + IntToStr(vst.ChildCount[node]));
end;
Auf den ersten Blick sieht die Navigation innerhalb der Struktur mühsam aus ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:40 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz