Danke Uli,
damit geht es:
Delphi-Quellcode:
if ThemeServices.ThemesEnabled then
begin
for i := 0 to Pred(ComponentCount) do
if Components[i] is TCheckBox then
begin
TCheckBox(Components[i]).Left := TCheckBox(Components[i]).Left + 2;
TCheckBox(Components[i]).Width := TCheckBox(Components[i]).Width - 2;
end;
end;
Im Gegensatz zu Deinem Code habe ich statt Controls Components benutzt um die ganze Form abzugrasen.
Außerdem habe ich noch die Breite korrigiert.
Und
Unit Themes einbinden nicht vergessen.
Grüße
Frank