Mega Code Archive

 

Categories / Delphi / VCL

 

Treeview içine alan ekleme

function GetTreeItems(ParentNodes: TTreeNodes; CheckName: String): TTreeNode; var i: Integer; SCheckName: String; begin Result := nil; SCheckName := AnsiUpperCase(CheckName); for i := 0 to ParentNodes.Count - 1 do begin if AnsiUpperCase(ParentNodes[i].Text) = SCheckName then begin Result := ParentNodes[i]; Break; end; end; end; Kullanımı: TreeView1.Items.AddChild(GetTreeItems(TreeView1.Items, 'DerNameDesParentNodes'), 'Merhaba Millet!');