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

2022-10-11 16:25:56 作者：admin

本文整理自网络，侵删。

 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 中调用 JavaScript 下一篇：delphi中执行javascript代码