[Firemonkey] Styles dynamisch zur Laufzeit ändern

[stahli]

Ich habe mal auf´s Geradewohl ein bischen herum gespielt:

Delphi-Quellcode:

procedure TFormAbfall.Button1Click(Sender: TObject);
var
  O: TFmxObject;
  Ol: TFmxObject;
  Ob: TFmxObject;
begin
  O := FMX.Types.FindStyleResource('checkboxstyle');
  if not Assigned(O) then
    Exit;
  for Ol in O.Children do
  begin
    if Ol.ClassName = 'TLayout' then // if Ol.StyleName = 'layout' then ??
    begin
      for Ob in Ol.Children do
      begin
        if Ob.StyleName = 'background' then
        begin
          if Ob is TSubImage then
          begin
            (Ob as TSubImage).Source.Bitmap.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'as.bmp');
            Exit;
          end;
        end;
      end;
    end;
  end;
end;

Naiver weise dachte ich, so ein Hintergrundbild für meine Checkbox zuzuweisen.
Statt dessen wird das ganze Formular verändert (das Bild als Hintergrund für das Formular verwendet (incl. NoneClient) und alles übrige recht verfälscht).

Vielleicht bringt Dich aber ja davon etwas auf die zündende Idee...


EDIT: "ich habe mir ein paar eigene Styles erstellt, die wunderbar funktionieren" ... sehen wolln