stringgrid的一个小问题，同一列字如何换行急！！

Question

我的代码是：stringgrid1.Cells[i, d] := Rom+#13#10+sta;换不了 (ＲＯＭ，ＳＴＡ是数据字段）
原先０３０３ＶＲ 
现在要的效果：０３０３ 
　　　　　　　　ＶＲ 
最好有代码，我是个新手

Answer 1

BS楼主。对楼主的赞誉请移步到这里看。http://topic.csdn.net/u/20080919/16/7fe2f371-f877-4363-8bdd-7af95caabe6c.html请问楼主：上面这贴的答案，哪里不行？哪句不妥？

Answer 2

我试过了http://topic.csdn.net/u/20080919/16/7fe2f371-f877-4363-8bdd-7af95caabe6c.html 上面这个不能换行，０３０３ＶＲ在第一行第一列，０３０３我要的效果也是在第一行第一列，你上面给我的代码是可以录入东西，但是
　　　　　　　　　　　　　　　　　　ＶＲ
按回车不能换行，２０分小分不是我给不起，是你提的代码不能做到

Answer 3

我试过了http://topic.csdn.net/u/20080919/16/7fe2f371-f877-4363-8bdd-7af95caabe6c.html 上面这个不能换行，０３０３ＶＲ在第一行第一列，０３０３我要的效果也是在第一行第一列，你上面给我的代码是可以录入东西，但是 
　　　　　　　　　　ＶＲ 
按回车不能换行，２０分小分不是我给不起，是你提的代码不能做到

Answer 4

不用不停地发站内短信了，我看到了。请你再试一次，看真的做不到？？？？
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var{这还是那贴的代码}
  HCell: Integer;
  HRow: Integer;
  SCell: string;
begin
  with TStringGrid(Sender) do begin
    SCell := Cells[ACol, ARow];
    HRow := RowHeights[ARow];
    Canvas.FillRect(Rect);
    HCell := DrawText(Canvas.Handle, PChar(SCell), Length(SCell), Rect, DT_Center or DT_VCenter or DT_WORDBREAK );
    if HCell > HRow then RowHeights[ARow] := HCell;
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin{按那贴你给出的测试方法测试一下}
  StringGrid1.Cells[1,1] := '0303'+#13+#10+'VR';
end;

Answer 5

你要知道：默认设置下，第1行第1列是默认的焦点格，如果设置成获得焦点立即进入Edit状态，那它得到焦点后光标就会转到该格最后一行，编辑完后即可看见效果。如果不设置为“设置成获得焦点立即进入Edit状态”，那么点击上面的测试按钮立即生效。你还要知道：我不是在说你给得起给不起分，而是针对你的结贴态度。