delphi Canvas的TextOut如何自動換行?

用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;

我把資料整理壹下，壹會兒發到我的百度空間上！