In der
VCL wird beim
MyCheckBox.Checked := True;
sogar ein OnClick ausgelöst. (das arbeitet dort wie ein OnChange, was es nicht gibt)
Da wir eh alle Komponenten immer abgeleitet haben,
konnen wir hier an zentraler Stelle ein CheckedNoClick einbauen, wo bei Zuweisung kurz das Event abgehängt wird.
Das kannst'e einfacher haben!
TButtonControl
, von dem z.B.
TButton
,
TCheckBox
und
TRadioButton
abgeleitet sind, hat ein protected Property
ClicksDisabled
, mit dem man das verhindern kann.