如何利用Delphi在一个限制矩形内输出一个文本文件，急急急！！！(100分)

各位大侠们：<br>&nbsp; &nbsp; 在下有礼啦！我用drawtext()尝试在一个限制矩形内输出一个文本文件，结果<br>遭到了史无前例的失败（汗颜）！愿各位仁兄本着江湖道义拔刀相助，多谢！多谢！

呵呵<br>小弟，试试：<br>TextRect(const Windows::TRect &amp;Rect, int X, int Y, const AnsiString Text);<br>我想会行的！

to 雨夜：好像还是不行啊，问题在于文本总是写出框外去了

千堆雪兄：问题已解决，不过小弟还是不太明白:1、canvas.fillrect()有何用处。<br>&nbsp; &nbsp;2、我记得drawtext()的第一个参数是HDC型的，为什么这里的canvas.handle没有<br>&nbsp; &nbsp;产生错误呢？？<br>&nbsp; &nbsp;望兄不吝赐教。<br>在此先把分给分配。

procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; Size: Byte;<br>&nbsp; TmpRect:TRect;<br>&nbsp; Flags : Word;<br>&nbsp; S:String;<br>begin<br>&nbsp; TmpRect.Left :=60;<br>&nbsp; TmpRect.Top :=60;<br>&nbsp; tmpRect.Right :=160;<br>&nbsp; tmpRect.Bottom :=260;<br>&nbsp; Canvas.FillRect(TmpRect);<br>&nbsp; Flags :=DT_NOCLIP or DT_VCENTER or DT_WORDBREAK;<br>&nbsp; S:='卷起千堆雪卷起千堆雪卷起千堆雪卷起千堆雪';<br>&nbsp; DrawText(Canvas.Handle, Pchar(S), Length(S), TmpRect, Flags);<br>end;<br><br>不是很好么？？？<br><br><br>&gt;canvas.fillrect()：<br>这是为了以填充的画刷颜色填充这个矩形，是为了看起来直观而已，没有什么用途<br><br><br>&gt;drawtext()的第一个参数是HDC型的，为什么这里的canvas.handle没有<br>&nbsp; &nbsp;产生错误呢？？<br>&nbsp; &nbsp;<br>HDC本来就是设备描述符，就是说是对象的句柄，在这里是画布的句柄

千堆雪兄：<br>&nbsp; &nbsp;接受回贴！！在此多谢！望以后多多指教。