Checkbox verändert im XP-Design die Position

[Sourcemaker]

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