Es ist wieder eine Zeit hin, dass ich mit Komponenten gearbeitet habe. Ich hab nur ein Problem mit der Sichtbarkeit.
Ich möchte eine Checkbox von TCheckbox ableiten, die nicht die Eigenschaft hat, dass bei dem Setzen von checked im Quelltext nicht automatisch onClick aufgerufen wird. Habe herausgefunden, dass tCheckbox ein Nachfahre von tCustomCheckbox ist. Nun würde ich gerne in meiner Abgeleiteten Klasse auf fState zurückgreifen.
Delphi-Quellcode:
Procedure TMeineCheckBox.SetCheckedOnly(inCheckedStatus:Boolean);
begin
If inCheckedStatus Then FState := cbChecked Else FState := cbUnchecked;
End;
Problem ist nur, dass FState private deklariert ist. Ich sehe zur Zeit irgendwie keine Möglichkeit auf den Wert in der Abgeleiteten Klasse zuzugreifen.
Hab auch schon im Forum nach Möglichkeiten gesucht. Bei der Lösung onClick temporär auf nil zu setzen wird mein Prog arg langsam.
Sieht jemand eine andere Möglichkeit?