TreeView Kullanımı

   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

Yazar	Mesaj Konuyu Paylaş Konuyu Yazdır Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Konu Bilgi Ara Konu Ayarları Yanıt Yaz Yeni Konu
turknetyazilim Üye Profili Özel Mesaj Yolla Bu kullanıcıya ait mesajları bul Üyenin Web Sitesie Git Arkadaş Listeme Ekle Moderator Group Kayıt Tarihi: 18.Ocak.2008 Bulundugu Yer: Balıkesir Online: Sitede Değil Gönderilenler: 214	Alıntı Cevapla Konu: TreeView Kullanımı Gönderim Zamanı: 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