var
R: TRect;
begin
//Form1.Canvas.TextOut(20,20, ‘说明‘);
R:=Rect(20, 20, 120, 70);
DrawText(Canvas.Handle, ‘说明‘, -1, R, DT_END_ELLIPSIS);
end;
//在窗体中使用textout,DrawText或其他。在绘制完文本后窗体最小化或其他操作。使窗体重绘后则文本也会显示.
所以需要注意。另外 绘在image控件上则可以持续输出.其他控件有待观察
原文：http://www.cnblogs.com/iseaside/p/4039316.html