IsSliderStateStored ist etwas nutlos, denn rate mal was das "default" macht.
Off, None, On = cbUnchecked, cbGrayed, cbChecked
Im Prinzip ist das doch eine CheckBox.
Wie wäre es, wenn man soeine Komponente von etwas Entsprechendem ableiten würde?
* TCheckBox oder TCustomCheckBox
* gleiches Verhalten
* leicht austauschbar, da kompatible
API
Man könnte es auch von einem Button ableiten, aber ein Button eigentlich nur zwei "nutzbare" Zusände kennt und hier die Caption neben und nicht auf dem Control steht ....
Off, None, On = Up, Disabled, Down
Und bezüglich den USES da ganz unten im Code (in Implementation)
https://www.delphipraxis.net/205364-...da-noch-2.html