https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 11:23:54 +0000 Tue, 05 Nov 2024 14:57:34 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=954 https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ https://forum.clomosy.com.tr/forum_posts.asp?TID=954&PID=1879#1879 Yazar: NadireNurSaglam
Konu: 954
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;

    

]]> Tue, 05 Nov 2024 14:57:34 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=954&PID=1879#1879