procedure TForm1.ListBoxItemApplyStyleLookup(Sender: TObject);
var o: TFMXObject;
begin
o:=(Sender as TListBoxItem).FindStyleResource('text');
i f o is TText then(Sender as TListBoxItem).Height :=(o as TText).Height;
end;
关键字词:
