ich möchte abhängig von einer Checkfunktion die Textfarbe im Edit anpassen um dem Benutzer weitere Informationen zugeben ,
die VCL Variante funktionierte perfekt , unter FMX geht dieser analog entwickelte Code nicht ....
die Textfarbe bleibt immer bei default scharz.

zusammenfalten · markieren

Delphi-Quellcode:

procedure ColorEditbyData(anyEdit: TEdit; aValue: string);
var
  warnLevel: Integer;
begin

  CheckParameter(aValue, warnLevel);

  case warnLevel of

    0:
      anyEdit.TextSettings.Font.FontColor := TAlphaColorRec.Green;

    1:
      anyEdit.TextSettings.FontColor := TAlphaColorRec.Blue;

    2:
      anyEdit.TextSettings.FontColor := TAlphaColorRec.Red;

  else

  end;

  anyEdit.Text := aValue;

end;

Du musst bei StyledSettings noch das FontColor abwählen, sonst hat der Style Vorrang.

wie setze ich diese property zur Laufzeit ? Dieser Ansatz geht leider nicht ....


    anyEdit.StyledSettings.FontColor = False;

  Edit1.StyledSettings := Edit1.StyledSettings - [TStyledSetting.FontColor];

danke , funktioniert