频道分类

delphi xe listbox 行高根据内容高度进行调速

作者:admin 来源: 日期:2014/7/25 13:32:32 人气: 标签:

 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;