关于运行后字体的问题

Question

比如是一个label控件的caption中的字体改为比较大的了,但是编译运行后字体不能完全显示,比如说:我爱你.只能显示:我爱.后面就没了,请指教

Answer 1

为false时把宽度设长一些也可。

Answer 2

delphi的label有个bug对于中文字的caption用autosize总是不准，汉字会被截掉一部分。
解决办法可以如weitao999(涛涛) 所说把label的长度设置长一点。
另一种办法是自己计算汉字的宽度然后再设label.width的值。procedure TForm1.Button1Click(Sender: TObject);
begin
  with label1 do
  begin
    canvas.Font.Size := Font.Size;
    width := canvas.TextWidth(Caption);
  end;
end;