Sayfayı Yazdır | Pencereyi Kapat

TreeView Kullanımı

Nereden Yazdırıldığı: Datakent
Kategori: Diğer bölümler
Forum Adı: Borland Delphi
Forum Tanımlaması: Borland Delphi ile ilgili soru / sorun / paylaşım bölümü
URL: http://forum.datakent.com/forum_posts.asp?TID=1597
Tarih: 28.Mart.2024 Saat 12:25


Konu: TreeView Kullanımı
Mesajı Yazan: turknetyazilim
Konu: TreeView Kullanımı
Mesaj Tarihi: 26.Kasim.2008 Saat 08:49
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



Sayfayı Yazdır | Pencereyi Kapat