Panel Görünürlüğü Hakkında

   Aşağıdaki kod parçası ana başlıklara tıklanınca alt başlıkların açıldığı ardından alt başlıklara tıklanınca 2. bir sayfanın açıldığı bir koddan bir parça. İkinci sayfadan geri tıklanınca GlobalVariableInteger değişkeni 1 oluyor. Bu değişken 1 olduğunda yani 1. sayfaya geri gelindiği zaman, önceden tıklanıp 2. sayfaya geçilmiş olan ana başlığın alt başlıkları açık gelsin ama diğer ana başlıkların alt başlıkları kapalı gelsin istiyorum. Ana başlıklarım BtnSyntax bileşeni, alt başlıklarım ise contentPnl bileşenim üzerinde. if kısmını yazdım ama hangi ana başlığa tıklarsam tıklayayım her zaman sadece 1. ana başlığın alt başlıkları açık geliyor. Yardımcı olabilir misiniz?

    contentPnl:= uComponentAdd.addPnl(MyForm,mainLyt,'contentPnl'+IntToStr(ATopicCount),0,100,10,10,'#ffffff','','',0,5,17,17,0);    contentPnl.Align:= alTop;
    contentPnl.Visible := False;

    /*contentPnl.clProSettings.BackgroundColor:= clAlphaColor.clred;
    contentPnl.SetclProSettings(contentPnl.clProSettings);*/

    BtnSyntax:= uComponentAdd.addbtn(MyForm,btnveSiraNoPnl,'BtnSyntax'+IntToStr(ATopicCount),AGroupName,'',0,0,0,0,60,350,0,0,'#000000','',14,0);
    BtnSyntax.Hint := IntToStr(ATopicCount);
    BtnSyntax.clProSettings.FontHorzAlign:=palleading;
    BtnSyntax.SetclProSettings(BtnSyntax.clProSettings);
    BtnSyntax.CLTagInt := 0;

    MyForm.AddNewEvent(BtnSyntax,tbeOnClick,'topTopicClick');

    okImage:= uComponentAdd.addBtnImg(MyForm,lvlPanel,'okImage'+IntToStr(ATopicCount),30,20,0,0,0,0,0,'arrow.png','','','',10,0,True);
    okImage.Align:= alRight;
    okImage.Hint := IntToStr(ATopicCount);
    okImage.CLTagInt := 0;
    MyForm.AddNewEvent(okImage,tbeOnClick,'topTopicClick');

    if (Clomosy.GlobalVariableInteger = 1) then //topicpage sayfasından geri gelince tüm konuların açık gelmesi için.
    begin
      ShowMessage('3');
      Clomosy.GlobalVariableInteger:=0;
       //clDoClick(TclProButton(MyForm.clFindComponent('BtnSyntax'+TclProButton(MyForm.clsender).Hint));
       TclProPanel(MyForm.clFindComponent('contentPnl'+TclProImage(Myform.Clsender).Hint)).Visible := True;
      // contentPnl.Visible:= True;
    end;

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
NadireNurSaglam Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 08 Ağustos 2024 Durum: Aktif Değil Puanlar: 37	Mesaj Seçenekleri Yanıt Yaz Alıntı NadireNurSaglam Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Panel Görünürlüğü Hakkında Gönderim Zamanı: 05 Kasım 2024 Saat 14:57
	Aşağıdaki kod parçası ana başlıklara tıklanınca alt başlıkların açıldığı ardından alt başlıklara tıklanınca 2. bir sayfanın açıldığı bir koddan bir parça. İkinci sayfadan geri tıklanınca GlobalVariableInteger değişkeni 1 oluyor. Bu değişken 1 olduğunda yani 1. sayfaya geri gelindiği zaman, önceden tıklanıp 2. sayfaya geçilmiş olan ana başlığın alt başlıkları açık gelsin ama diğer ana başlıkların alt başlıkları kapalı gelsin istiyorum. Ana başlıklarım BtnSyntax bileşeni, alt başlıklarım ise contentPnl bileşenim üzerinde. if kısmını yazdım ama hangi ana başlığa tıklarsam tıklayayım her zaman sadece 1. ana başlığın alt başlıkları açık geliyor. Yardımcı olabilir misiniz? contentPnl:= uComponentAdd.addPnl(MyForm,mainLyt,'contentPnl'+IntToStr(ATopicCount),0,100,10,10,'#ffffff','','',0,5,17,17,0); contentPnl.Align:= alTop; contentPnl.Visible := False; /contentPnl.clProSettings.BackgroundColor:= clAlphaColor.clred; contentPnl.SetclProSettings(contentPnl.clProSettings);/ BtnSyntax:= uComponentAdd.addbtn(MyForm,btnveSiraNoPnl,'BtnSyntax'+IntToStr(ATopicCount),AGroupName,'',0,0,0,0,60,350,0,0,'#000000','',14,0); BtnSyntax.Hint := IntToStr(ATopicCount); BtnSyntax.clProSettings.FontHorzAlign:=palleading; BtnSyntax.SetclProSettings(BtnSyntax.clProSettings); BtnSyntax.CLTagInt := 0; MyForm.AddNewEvent(BtnSyntax,tbeOnClick,'topTopicClick'); okImage:= uComponentAdd.addBtnImg(MyForm,lvlPanel,'okImage'+IntToStr(ATopicCount),30,20,0,0,0,0,0,'arrow.png','','','',10,0,True); okImage.Align:= alRight; okImage.Hint := IntToStr(ATopicCount); okImage.CLTagInt := 0; MyForm.AddNewEvent(okImage,tbeOnClick,'topTopicClick'); if (Clomosy.GlobalVariableInteger = 1) then //topicpage sayfasından geri gelince tüm konuların açık gelmesi için. begin ShowMessage('3'); Clomosy.GlobalVariableInteger:=0; //clDoClick(TclProButton(MyForm.clFindComponent('BtnSyntax'+TclProButton(MyForm.clsender).Hint)); TclProPanel(MyForm.clFindComponent('contentPnl'+TclProImage(Myform.Clsender).Hint)).Visible := True; // contentPnl.Visible:= True; end;