TreeView Selected

[haydarxxx]

slm
İyi bayramlar
[+]1-SABİTLER //şeçili olmayan durum


[-]1-SABİTLER //şeçili durum
:..1-Kayıt
:....

bir buton ile TreeView da seçeceğimiz items i

Kod: Tümünü seç

JvTreeView1.Items[1].Selected := True;

şekinde seçerek sabitler bölümünü açılıyorum.başka bir butonla açtığım bu items i kapatmak istiyorum.Nasıl bir kod ile istediğimiz itemsi kapatabiliriz.TreeView deki [+] ikonona butonuna basıp [-],[-] ikonuna basıp [+] yapma işlemi gibi menüleri açıp kapatmak istiyorum bunu butonla yapmak istiyorum.Teşekkürler

[rsimsek]

Aşağıdaki şekilde bir butonla seçili düğümü açıp diğeri ile kapatabilirsin.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  JvTreeView1.Items[JvTreeView1.ItemIndex].Expand(True);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  JvTreeView1.Items[JvTreeView1.ItemIndex].Collapse(True);
end;

[haydarxxx]

Hocam ilginiz için teşekkür ediyorum.

Ben düğümleri (itemsleri) şu şekilde açmak istiyorum.JvTreeView1 dan seçim yapmayacağım yani seçili bir düğüm olmayacak.Bunu butonla yapacağım.7 tane butonum var

1.butonla
JvTreeView1.Items[1].Selected := True;// itemsi seçtim açıldı.
açık olan durumdaki diğer itemslerin kapanmasını istiyorum örneğin
JvTreeView1.Items[6]
JvTreeView1.Items[9].
JvTreeView1.Items[19] nolu itemsler açıksa kapat

aynı kodlama ile 2 butonla kontrol yaptırıp JvTreeView1.Items[6].Selected := True şeklinde şeçtirip açık olan diğer itemsleri kapatmak istiyorum......Soruyu tam soramamışım galiba

[rsimsek]

Yukarıdaki kodları biraz geliştirerek yapabilmeniz gerekirdi diye düşünüyorum. Çünkü bir döngü içinde seçilen haricindekileri kapat diyebilirsiniz. Yani kapatma kısmını şöyle düzenlemeniz yeterli

Kod: Tümünü seç

procedure TForm2.Button2Click(Sender: TObject);
var
  i: Integer;
begin
//  JvTreeView1.Items[JvTreeView1.ItemIndex].Collapse(True);
  for i := 0 to JvTreeView1.Items.Count - 1 do
    if i <> JvTreeView1.ItemIndex then
       JvTreeView1.Items[i].Collapse(True);
end;

[haydarxxx]

rsimsek hocam elleriniz dert görmesin.Döngü hiç aklıma gelmedi ne yalan söyleyeyim.Çoook teşekkürler.

[akdatilla]

s.a.
Senin istediğini tam olarak karşılıyormu bilemiyorum ama Treeview'in AutoExpand özelliğini true yapınca seçili olan öğe içeriği açılarak diğer kutuların kapanması otomatik olarak yapılabiliyor.

[haydarxxx]

sy akdatilla teşekkürler döngüye gerek yokmuş dediğini şekilde buton ile aynı işi yapıyormuş.

Kod: Tümünü seç

procedure TForm28.Button1Click(Sender: TObject);
begin
JvTreeView1.Items[1].Selected := True;
end;

gibi sağolasın.