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

本文整理自网络，侵删。

 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; 

相关阅读 >>

Delphi word转pdf两种方法

Delphi richedit接受消息的问题

Delphi中组件label、edit、tag、memo、richedit

Delphi求数组最大\最小值

idtcpclient和idtcpclient 主要属性和方法

Delphi tnethttpclient演示

Delphi memo1 字符串快速查找定位2

Delphi xe更改ttrayicon系统任务栏图标（无模糊）

Delphi 把单张图片保存到access数据库

Delphi中将webbrowser用作网页编辑器

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi xe listbox 行高根据内容高度进行调速