Hallo,
Du könntest zuerst alle .Checked und .Enabled auf False setzen, und dann in den einzelnen Abfragen nur noch die benötigten auf True, dadurch könntest Du eventuell ein paar Zeilen sparen.
Die einzelnen If-Abfragen können per Else miteinander verbunden werden, da ja nur eine If-Abfrage zutreffen kann.
Delphi-Quellcode:
Blue1.Checked:=False;
Vista1.Checked:=False;
Red1.Checked:=False;
Black1.Checked:=False;
Win71.Checked:=False;
Light1.Checked:=False;
Blue1.Enabled:=False;
Vista1.Enabled:=False;
Red1.Enabled:=False;
Black1.Enabled:=False;
Win71.Enabled:=False;
Light1.Enabled:=False;
if Background='Blue' then
begin
Image3.Picture:=Image23.Picture;
Blue1.Checked:=True;
Vista1.Enabled:=True;
Red1.Enabled:=True;
Black1.Enabled:=True;
Win71.Enabled:=True;
Light1.Enabled:=True;
end else if Background='Vista' then
...
Aber viel Ersparnis bringt das nicht.