有关StringGrid的问题(100分)

在TStringGrid控件中Cell里显示的字符串只有一行

我现在想在一个Cell里显示好几行 怎么办？

比如 我在第一行显示日期 第二行显示事件。

谢谢

用
'line1'+#10+'line2'
或
'line1'+chr(10)+'line2'
试试

不行呢

我用 #13#10 都试过

嗯。。。。。我也不懂了。

嗯。。。。。为什么不变通一下呢？换一个思路，只要解决就行了嘛。

省点时间啊

自己可以适当修改一下：
procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.cells[1,1]:='ABaaaaaefghFFF';
stringgrid1.cells[1,2]:='ABaaaaaefghFFF';
stringgrid1.cells[2,1]:='ABaaaaaefghFFF';
stringgrid1.cells[2,2]:='ABaaaaa';
stringgrid1.RowHeights[1]:=40;
stringgrid1.RowHeights[2]:=40;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
s:string;
begin
with StringGrid1 do
begin
s:=StringGrid1.cells[acol,arow];
if length(s)>10 then
begin
canvas.brush.color:=$00ffff;
canvas.font.color:=$0000ff;
canvas.Rectangle(rect);
canvas.TextOut(rect.Left ,rect.Top,copy(s,1,10));
canvas.TextOut(rect.Left ,rect.Top+20,copy(s,11,length(s)-10));
end
else
inherited;
end;
end;

to jsxjd:
直接画上去啊？真绝！这行吗？

现在同样碰到此问题，我改用其他第三方的GRID了。。

谢谢各位 ，特别是jsxjd。