|
Merhaba TreeView Kullanımı Hakkında Bir Örnek Göstermek istiyorum.Başka örneklere de baktım Böle güzelini Bulamadım.Delphinin helpinde(Yardımında) dan aldım.
Örnek İngilice... Türkçeye çevirip gördericem. şimdilik Bununla idare edin.
Bu örneğe Delphi çalıştırdıktan sonra Help->Delphi Help->Bul Sekmesine Geçtikten sonra
TreeView1 yazmanız Yetecektir.Orda C++ ve Delphi için örnekler var.
procedure TForm1.Button1Click(Sender: TObject);
//The following example demonstrates how to add nodes and child nodes to a TTreeView control.
var
MyTreeNode1, MyTreeNode2: TTreeNode;
begin
with TreeView1.Items do
begin
Clear; { remove any existing nodes }
MyTreeNode1 := Add(nil, 'RootTreeNode1'); { Add a root node }
{ Add a child node to the node just added }
AddChild(MyTreeNode1,'ChildNode1');
{Add another root node}
MyTreeNode2 := Add(MyTreeNode1, 'RootTreeNode2');
{Give MyTreeNode2 to a child }
AddChild(MyTreeNode2,'ChildNode2');
{Change MyTreeNode2 to ChildNode2 }
{ and add a child node to it}
MyTreeNode2 := TreeView1.Items[3];
AddChild(MyTreeNode2,'ChildNode2a');
{Add another child to ChildNode2, after ChildNode2a }
Add(MyTreeNode2,'ChildNode2b');
{add another root node}
Add(MyTreeNode1, 'RootTreeNode3');
end;
end;
Uygulama ->>http://rapidshare.com/files/167486507/TreeView_Kullanimi.rar.html
Kolay Gelsin
İyi Çalışmalar
|