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;
|