Uzyskaj właściwość TextSettings.Font.Style za pomocą funkcji GetObjectProp za pomocą Delphi Tokyo 10.2

Question

Używam funkcji GetObjectProp Delphi, aby uzyskać właściwości składników formularza, otrzymuję wszystkie właściwości kilku składników, ale nie mogę pobrać TextSettings.Font .Style (pogrubienie, kursywa, ...) właściwości komponentów takich jak np. TLabel. Muszę wiedzieć, czy tekst komponentu jest pogrubiony czy pochylony. Procedura pracuję nad próbując dostać się do tych właściwości następuje poniżej:

procedure Tfrm1.aoClicarComponente(Sender: TObject); 
var 
    TextSettings: TTextSettings; 
    Fonte: TFont; 
    Estilo: TFontStyle; 
    Componente_cc: TControl; 
begin 
Componente_cc := TControl(Label1); 
if IsPublishedProp(Componente_cc, 'TextSettings') then 
    begin 
     TextSettings := GetObjectProp(Componente_cc, 'TextSettings') as TTextSettings; 
     if Assigned(TextSettings) then 
      Fonte := GetObjectProp(TextSettings, 'Font') as TFont; 
     if Assigned(Fonte) then 
      Estilo := GetObjectProp(Fonte, 'Style') as TFontStyle; // <-- error in this line 
     if Assigned(Estilo) then 
      Edit1.text := GetPropValue(Estilo, 'fsBold', true); 
    end 
end; 

Błąd wyświetlany na linii, gdzie zaznaczyłem powyżej jest.

[dcc64 Error] uPrincipal.pas (1350): E2015 Operator nie dotyczy tego argumentu typu

Co robię źle?

Answer 1

GetObjectProp(Fonte, 'Style') nie będzie działać, ponieważ Style nie jest właściwością opartą na obiektach, jest to właściwość oparta na Set. I GetPropValue(Estilo, 'fsBold', true) jest po prostu błędne (nie, że dostaniesz wystarczająco daleko, aby zadzwonić i tak), ponieważ fsBold nie jest własnością, jest członkiem enum TFontStyle. Aby odzyskać wartość właściwości Style, należy zamiast tego użyć GetOrdProp(Fonte, 'Style'), GetSetProp(Fonte, 'Style') lub GetPropValue(Fonte, 'Style') (odpowiednio jako integer, string lub).

Mimo że po pobraniu obiektu TextSettings nie trzeba wcale korzystać z RTTI, aby uzyskać dostęp do jego właściwości Font.Style, wystarczy uzyskać bezpośredni dostęp do właściwości.

Spróbuj zamiast:

procedure Tfrm1.aoClicarComponente(Sender: TObject); 
var 
    Componente_cc: TControl; 
    TextSettings: TTextSettings; 
begin 
    Componente_cc := ...; 
    if IsPublishedProp(Componente_cc, 'TextSettings') then 
    begin 
    TextSettings := GetObjectProp(Componente_cc, 'TextSettings') as TTextSettings; 
    Edit1.Text := BoolToStr(TFontStyle.fsBold in TextSettings.Font.Style, true); 
    end; 
end; 

lepiej (i korzystnie) rozwiązaniem jest, aby nie używać RTTI wcale. Klasy FMX, które mają właściwość TextSettings także implementować interfejs ITextSettings dokładnie tej sytuacji, np:

procedure Tfrm1.aoClicarComponente(Sender: TObject); 
var 
    Componente_cc: TControl; 
    Settings: ITextSettings; 
begin 
    Componente_cc := ...; 
    if Supports(Componente_cc, ITextSettings, Settings) then 
    begin 
    Edit1.Text := BoolToStr(TFontStyle.fsBold in Settings.TextSettings.Font.Style, true); 
    end; 
end; 

dokumentacja Przeczytaj Embarcadero więcej szczegółów:

Setting Text Parameters in FireMonkey