如何在运行时更改 Listbox Itemdata.detail 字体大小 Delphi 10.3

【问题标题】：How to change Listbox Itemdata.detail font size in run time Delphi 10.3如何在运行时更改 Listbox Itemdata.detail 字体大小 Delphi 10.3
【发布时间】：2020-06-16 05:25:14
【问题描述】：

我正在使用一个列表框，我正在尝试在运行时更改列表框“Itemdata.detail”比例的字体大小。我能够更改“ItemData.Text”的字体大小，但我还需要更改“ItemData.Detail”的字体大小

{ 用 ListBoxItem 做开始 StyledSettings:=[TStyledSetting.Family,TStyledSetting.Style,TStyledSetting.FontColor,TStyledSetting.Other]; 尺寸.高度：=50；字体大小：=12；

          Size.PlatformDefault := False;
          Text :=FormPrincipal.UniqueryGeral.Fields[1].AsString;
          ItemData.Detail:= FormPrincipal.UniqueryGeral.Fields[0].AsString+' vezes '+'/'+' ACERTOS = '+FormatFloat('###.##',FormPrincipal.UniqueryGeral.Fields[2].asFloat)+'%'+' - ERROS= '+FormatFloat('###.##',(FormPrincipal.UniqueryGeral.Fields[3].AsFloat))+'%';
          StyleLookup := 'listboxitembottomdetail';
          Visible := True;
          Parent := FormPrincipal.ListBox_EstatisticasPROF_2_Resultado;
          Inc(conta_linha);
        End;

}

【问题讨论】：

标签： firemonkey listboxitem delphi-10.3-rio

【解决方案1】：

TListBoxItem 在设计时的样式定制非常有限。试试这个：

ListBoxItem.StylesData['detail.TextSettings.Font.Size']:=20;

它利用了StylesData 属性，该属性在运行时存储样式内所有对象的属性值。样式listboxitembottomdetail is composed of a few objects 包括一个名为detail 的TText 对象并映射到TListBoxItem 的ItemData.Detail 属性。结合对象的名称和所需的属性允许访问它。

如果您想更改详细文本字体颜色，请改为：

ListBoxItem.StylesData['detail.TextSettings.FontColor']:=TAlphaColors.Blue;

【讨论】：