Alles klar,
wollte nur wissen ob TPageControl auch Parent ist ...
Nun habe ich aber folgendes Problem:
Delphi-Quellcode:
for I := 0 to Form1.ComponentCount - 1 do
begin
if (Components[i] is TBitBtn) then
begin
If Assigned(TBitBtn(Components[i]).Parent.Parent.Parent.Parent.Parent) then
begin
If (TBitBtn(Components[i]).Parent.Parent.Parent.Parent.Parent = MeinPageControl) then
begin
...
Jetzt gibt es einige BitBtns die nicht 5 Parents bezitzen. Ich dachte die kann ich mit Assigned abfangen, aber dennoch kommt dort eine Zugriffsverletzung. Was kann ich tun ?
Gruss
Holger