主页 > 编程资料 > Delphi >
发布时间:2015-09-22 作者:网络 阅读:115次

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;
关键字词: