Forum: Sonstige Fragen zu Delphi
Delphi
by SirThornberry,
18. Apr 2004
function FindRootNode(ACaption: String; ATreeView: TTreeView): TTreeNode;
var LCount: Integer;
begin
result := nil;
LCount := 0;
while (LCount < ATreeView.Items.Count) and (result = nil) do
begin
if (ATreeView.Items.Item.Text = ACaption) and (ATreeView.Items.Item.Parent = nil) then
result := ATreeView.Items.Item;
inc(LCount);
Forum: Sonstige Fragen zu Delphi
Delphi
by SirThornberry,
18. Apr 2004
var LNode: TTreeNode;
begin
LNode := Treeview1.Items.Add(TreeView1.Items.GetFirstNode, 'Kategorie1');
TreeView1.Items.AddChild(LNode, 'Untereintrag1');
TreeView1.Items.AddChild(LNode, 'Untereintrag2');