Image改变大小的问题

[XJEND]

我用TextRect在Image上输出文字
我根据文字的长和宽来确定image的长和宽
可再实际编程过程中发现image的长和宽根本没有改变
请问怎么解决？

str:='daljfdljfdl';
Image1.Height := Image1.Canvas.TextHeight('S');
Image1.Width := Image1.Canvas.TextWidth('S')*Length(str);
Image1.Canvas.TextRect(Rect(0,0,Image1.Width,Image1.Height),1,1,Str)

[bestluo]

系统运行后，是无法看到的IMAGE的边框的啊
请问你是如何发现他的长宽是未变的

[XJEND]

Showmessage(IntToStr(Image1.Width))啊

[bestluo]

你把值设大点就可以了
你先不要根据字符串的长度来判断，输入数字来判断，会有意想不到的结果
：）

[XJEND]

郁闷，自己解决了，感谢大家的支持

[XJEND]

可是我必须要根据字符串的长度来判断image的大小了

[hiflower]

str:='daljfdljfdl';
Image1.Height := Image1.Canvas.TextHeight(str);
Image1.Width := Image1.Canvas.TextWidth(str);
Image1.Canvas.TextRect(Rect(0,0,Image1.Width,Image1.Height),1,1,Str);