Treeview

[gaus]

Kolay gelsin arkadaşlar basit bir soru olacak bilmediğimden ve daha önce hiç kullanmadığımdan dolayı bu soruyu soruyorum;
Treeviewa menü hazırladım subitemlar var bu subitemlara tıklanınca formlar açılması gerekiyor bunu nasıl yapıcam eventinda click ve double clik var
Doubleclickinde ne yazacağım yani mesela bir Raporlar diye bir subitem var bu subitema tıklayınca ben rapor forumumu nasıl açaçağım
Teşeşkkürler şimdiden

[gaus]

Kod: Tümünü seç

   case tw1.Selected.SelectedIndex of
    1:frm_stoklist.Show;
    2:frm_ambalajstok.Show;
    3:frm_extre.Show;

   end

böyle bir kod kullandım o da işe yaramadı çok

[G.Arkas]

Kod: Tümünü seç

var
a:String;
begin
a := TreeView1.Selected.Text;
 if a = 'Subitem adı' then
Form1.Show;

Bunu Treview Selected Index ile de yapabilirsin.

[gaus]

bunu dbl click olayını yazıyorum değil mi

[G.Arkas]

dbclick yada onclick farketmez seçim senin.

[gaus]

Kod: Tümünü seç

procedure TMainForm.tw1DblClick(Sender: TObject);
begin
   case tw1.Selected.SelectedIndex of
    0:frm_stoklist.Show;
    1:frm_ambalajstok.Show;
    2:frm_extre.Show;

   end;

bu kodu kullanmama rağmen hep frm_stoklist açılıyor ve ben selectedindexleri de değiştirdim 1 2 3 diye

[gaus]

arkadaşlar çözemedim hep aynı casei alıyor neye tıklarsam tıklıyayım nasıl çözeceğim bu işi

[SimaWB]

tw1.Selected.AbsoluteIndex 'i dener misiniz?

[gaus]

Denedim bU seferde benim istediğim sıralamada açmıyor caseleri 0a tıkladığımda 4 açılıyor düzenlemye kalktım iyice karıştı

[xozcanx]

Merhaba;
herkesin farklı bir yoğurt yeme şekli vardır benim kullandığım yöntem ise şu şekilde;

Öncelikle tüm itemlerin Selectedİndex lerine numara veriyorum ve daha sonra DblClick olayına

Kod: Tümünü seç

  if TreeView1.Selected.SelectedIndex=15  then
  Form1.Showmodal;

Yukarıdaki kod Selectedİndex numarası 15 olan Form1'i açıyor.

kolay Gelsin.

[gaus]

bunuda deneyeyim dblclickde olur mu ben dblclikde istiyorum