Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
9. Apr 2005
ok, falls es nochjemand nicht verstanden hat, hier der entscheidente teil der bei der pn-unterhaltung den ausschlag zum verständnis gab
das ganze als fertige funktion würde dann so aussehen
function CountFirstLevelItems(ATreeView: TTreeView): Integer;
var LRoot: TTreeNode;
begin
result := 0;
LRoot := ATreeView.Items.GetFirstNode;
while (LRoot <> nil) do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
9. Apr 2005
selbst eine schleife schreiben die nur die childs des root-nodes durchzählt.
bzw.: Bevor irgend ein Item erstellt wurde mit
TreeView1.Items.GetFirstNode
das root-item ermitteln und in ner private-variablen sichern.
Und dan wenn du mal die anderen Items erstellt hast kannst du über
gesichtertesFirstNode.Count