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 通�^窗口句柄或窗口标题得到进程句柄

Delphi 任务管理器 获取窗口标题 获取窗口图标

Delphi d10.x 安卓app开发中按返回键后程序不退出程序的方法

Delphi android 拨打电话

windows 消息

Delphi中始终用webbrowser打开网页

Delphi 让socket支持域名上线

Delphi 10.3 断点全部失效

Delphi tnethttpclient https忽略证书验证

Delphi 搜索字符串在流中的位置

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

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