在控件stringgrid中怎样实现文字换行(200分)

如果是显示：
在stringgrid的ondrawcell中自己写就是了。
如：
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (acol=1) and (arow=1) then
begin
textout(stringgrid1.Canvas.handle, rect.left,rect.top,pchar('line1'),12);
textout(stringgrid1.Canvas.handle, rect.left,rect.top+12,pchar('line2'),12);
end;
end;

呵呵, 用drawtext吧, format里含有DT_WORDBREAK就可以自动回行.
drawtext(stringgrid1.canvas.handle,pchar(strings1.text),length(strings1.text),rect,DT_WORDBREAK or DT_LEFT);

两位真幸运。：）
这就样捡了100分。呵呵。