Question

delphi Canvas的TextOut如何自动换行?

delphi Canvas的TextOut如何自动换行? 代码如何实现？
可以换行 但是我用的是copy来截取的 换行后的却出现了乱码 怎么办？

Answer 1

用textout自动换行非常麻烦，你在写代码控制偏移量时要考虑到字体，字体大小等因素。如果你的要求是直接在画布上绘出可以自动换行的文字，你可以考虑用DrawText来实现，下面是实现代码：
//delphi XE中编译通过
procedure TForm1.Button1Click(Sender: TObject);
const
str = '汉字进行自动换行汉字进行自动换行汉字进行自动换行';
var
R: TRect;
begin
with R do
begin
Left := 10;
Top := 10;
right := 50;
end;
DrawText(Form1.Canvas.Handle, str, Length(str), R, DT_WORDBREAK);
//DT_WORDBREAK表示自动换行。left与right来确定矩形的宽度，根据文字的多少，可以自动调//整矩形的高度
end;

我把资料整理一下，一会儿发到我的百度空间上！

Answer 2

TextOut的参数不是有3个吗？你用X,y座标控制不就可以了
TextOut（1，y1，'A'）
TextOut（1，y1，'B'）
......

Y1-Y2=?自己调节下，以免B覆盖A

Answer 3

用Canvas.TextWidth(‘字’)获得一个字的字宽；
用Canvas.TextHeight(‘字’)获得一个字的字高；
用length()获得你要输出字符串的长度；
根据画布的长宽用循环来计算TextOut的x,y的坐标及每次要输出的是那几个字符（用字符拷贝函数）

注意：需要选用等宽字体才可以

Answer 4

改成：
var
z:Int64;
begin
z:=1234567890;
canvas.textout (20,20,IntToStr(z));
end;
有三个错，第一个是canvas这句要包进begin……end里面。第二个，z是integer类型，须要转换成string类型才能被textout使用。第三，对于integer来说，1234567890这个数字太大了，所以你要把var声明里面的z声明为Int64才行。

Answer 5

楼上的说得对，只能是使用X,Y坐标来控制了。 delphi 能自动换行的控件就那么几个大型编辑控件了。否则只能自己手动调节文本的输出位置来达到换行的目的