获取label中caption文字的高度(50分)

  • 主题发起人 主题发起人 zwx123
  • 开始时间 开始时间
Z

zwx123

Unregistered / Unconfirmed
GUEST, unregistred user!
如何根据TLabel控件的 caption 文字长度动态改变其高度(height属性),其中,TLabel的
属性 wordwrap 为ture,即caption可以回行。

详讯:
我的程序需要显示一个象hint一样的窗口,但因hint已经使用,我想自己做一个form,内嵌
一个TLabel,TLabel的caption可以回行,然后将其align属性设为alclient。但当label中
文字比较少时,文字下有大量空白区,为了取消空白区,我想获得实际文字的高度,动态改
变label 高度
 

label1.font.height ?
 
label1.canvas.font :=label1.font;
label1.height(label1.canvas.textheight('test'));
 
你的方法得到的是行高,虽没有解决我的问题,但给我以提示。谢谢!
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
824
DelphiTeacher的专栏
D
D
回复
0
查看
830
DelphiTeacher的专栏
D
后退
顶部