Control von TCheckBox ableiten und selbst zeichnen

[Alaitoc]

Also eine Möglichkeit anstatt Paint wäre z.b. diese:

Delphi-Quellcode:

type TSonderCheckbox = class ( TCheckbox )
    private
          procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;

Und dann würde ich den Rest über ThemeServices regeln, dazu ein Beispiel:

ThemeServices (Beispiel mit Checkbox)

Edit: Also über die ThemeServices kann man halt alle Standard Windows Buttons abbilden und zwar mit dem aktuellen Windows-Theme (XP-Style+)

Edit2: Äh WM_Paint nicht WM_NCPaint.

MfG Alaitoc