Checkbox verändert im XP-Design die Position

[uligerhardt]

Hi!

Ich habe gerade mal folgendes

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  if not ThemeServices.ThemesEnabled then
    for i := 0 to Pred(ControlCount) do
      if Controls[i] is TCheckBox then
        Controls[i].Left := Controls[i].Left - 2;
end;

ausprobiert und es scheint zu funktionieren.

Uli.