Delphi 获取 Label 控件里面文字的 Width 宽度

2017-08-18 19:09:39来源:CSDN作者:qq_23044209人点击

分享

(快快是丹丹 原创)

有时,我们需要根据 label 控件里面的文字宽度来考虑是否需要换行,既然换行,也需要调整 label 控件的高度以便于显示换行的内容。
* 获取 label 里面 文字的宽度:
Label1.Canvas.TextWidth(Label1.Caption);
* 设置 label 控件换行(必须设置这样):
Label1.AutoSize := False;
Label1.WordWrap := True;
* 若当前的 Label 控件高度为 10,则在 Label 控件文字宽度超过自身控件宽度时,需要设置 Label 控件高度为之前的 2 倍,即是 20。
* 代码如下:
//文字宽度大于自身控件宽度,且已经设置了自动换行时
if Label1.Canvas.TextWidth(Label1.Caption) > Label1.Width then
begin
Label1.Width := Label1.Width * 2;
end;

注 : 这只是一个简单的对于显示不同语言的处理方法。
(若是有不对的或者更好的建议,可以留言给我的哈,请多多指教)

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台