Görüntüleme şekli

[sako]

Başlık biraz saçma oldu gibi ama neyse

Sormak istediğim şu. Mesela regeditte (+) simgesini tıkladığında klasör açılıyor ve altından bağlı liste çıkıyor.Bununla ilgili küçük bi örnek arıyorum. Forumda aratattım ama bulamadım.

Mesela ahmet adında bir kişi için yapılacak işlemleri bu şekilde görüntülemek istiyorum.

kolay gelsin...

[husonet]

Kod: Tümünü seç

procedure TAnaProgFrm.TreeView1Click(Sender: TObject);
begin

//Menü Tıklamaları
    if TreeView1.Items[1].Selected Then
    Begin
        CHTFrm.ShowModal;

        TreeView1.Items[0].Selected := True;
        MediaPlayer1.Play;
    End
    else
    if TreeView1.Items[3].Selected Then
    Begin
        Try
            CariHesapAcilisIslemFrm := TCariHesapAcilisIslemFrm.Create (Application);
            CariHesapAcilisIslemFrm.ShowModal;
        Finally
            CariHesapAcilisIslemFrm.Free;
        End;
        TreeView1.Items[0].Selected := True;
        MediaPlayer1.Play;
    End
    else
    if TreeView1.Items[15].Selected Then
    Begin
        Try
            HakkindaFrm := THakkindaFrm.Create (Application);
            HakkindaFrm.ShowModal;
        Finally
            HakkindaFrm.Free;
        End;
        TreeView1.Items[0].Selected := True;
        MediaPlayer1.Play;
    End
    else
    if TreeView1.Items[16].Selected Then
    Begin
        Try
            CikFrm := TCikFrm.Create (Application);
            CikFrm.ShowModal;
        Finally
            CikFrm.Free;
        End;
        TreeView1.Items[0].Selected := True;
        MediaPlayer1.Play;
    End;
end;

Bunun için TreeView bileşeni kullanacaksın.

Kolay Gelsin...

[sako]

acaba bu TreeView e eklenebilecek itemlerin sayısı sınırlı mı?

[altunway]

Şimdi baktım bir 250 tane item ekledim ve bana mısın demedi

[mepc]

ben sürekli kullanıyorum bazen sayı 4000-5000 oluyor ama hiç problem çıkmıyor. Ancak verileri program çalışırken yüklemen lazım. Aksi taktirde programın açılması çok uzun sürüyor.