TNotebook ActivePage Parentli Nesnelerin Tespiti

[vkamadan]

Merhaba ,
Örneğin TPanel.ComponentCount diyerek ilgili panelin üzerindeki nesne sayısını alıp yine index özelliğiyle ulaşabiliyoruz. fakat TNotebook ta ki her bir sayfa için bu özelliği kullanamıyorum.
Teşekkürler.

[ofenX]

Merhaba,
O component Ttabset componenti ile kullanılıyor diye hatırlıyorum.

Kod: Tümünü seç

tabset1.tabs:=notebook1.pages;

gibi kullanılıyor. Siz sorunununuzu hallederken bu iki componenti göz önüne alarak çözmeye çalışın.
İyi çalışmalar.

[vkamadan]

Merhaba ,
TNotebook u tek başına kullanıyorum yani bu şekilde icab ediyor.
Benim şuna benzer bir Metoda ihtiyacım var,
TNotebook.ActivePage.ComponentCount
Teşekkürler.

[fduman]

Form üzerinde Parent'ı şu pagesheet olan bileşenler şeklindeki bir döngü ile alabilirsin sanırım.

[vkamadan]

Merhaba ,
Sonunda çözüme ulaştım ,

Kod: Tümünü seç

var
i:integer;
begin
   for i:=0 to TWinControl(Notebook1.Pages.Objects[0]).ControlCount-1 do
     begin
       if TWinControl(Notebook1.Pages.Objects[0]).Controls[i] is TCheckBox then
          TCheckBox(TWinControl(Notebook1.Pages.Objects[0]).Controls[i]).Checked:=true;
     end;
end;

TNoteBook un Pages özelliğindeki Objects ile sayfalara ulaşıp Controls konteynırı ile nesnelere erişebildim.

iyi çalışmalar.