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 10 seattle的android应用做intent的发送和接收

d10环境下调用hidcontroller1.0.35获取数据乱码问题

Delphi窗体置顶

Delphi trim删除字符串首尾空格

Delphi 带参数的 exit

Delphi 得到执行程序的当前所在完整路径

Delphi 一个call应该如何写?

Delphi的idhttp的基本用法

Delphi firemonkey 学习笔记 �c tpopup 控件的使用

Delphi 调用clipboard 收集剪切板信息

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

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