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 xe android platform uses-permission[1] 权限列表

Delphi模仿“千千静听”滚动标题栏，非常简单！

Delphi tform类有关属性简介

Delphixe5如何获取android手机sim卡串号

cnvcl 组件包

Delphi内存映射 与 映射数据获取

Delphi 如何将access的ole对象字段存储的bmp图象显示出来

Delphi日期和时间

Delphi中利用msdasc来配置数据库链接

Delphi b编码以及bt种子文件分析

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

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