Setzen von Font.Style funzt nicht wirklich

[dahead]

ja, hab gerade auch ein testprojekt, klappt wie gesagt wunderbar.

evtl. kannst du es ja mal so ähnlich probieren:

Delphi-Quellcode:

  with Sender as TLabel do
   begin
    if fsBold in {(Sender as TLabel).}Font.Style then
     {(Sender as TLabel).}Font.Style := {(Sender as TLabel).}Font.Style - [fsBold]
    else
     {(Sender as TLabel).}Font.Style := {(Sender as TLabel).}Font.Style + [fsBold]
   end;