江湖救急，stringGrid，各位仁兄仁妹，帮一帮，谢谢

Question

StringGrid1中怎么设置文字自动居中啊
：
第二  StringGrid1.Cells[1,0]:='最'+#13+'大'+#13+'级'+#13+'数';这个回车也没用

Answer 1

stringgrid字体自己画上去的procedure Tform_main.stringgrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
StringGrid1.Canvas.TextRect(rect,rect.Left,rect.Top,' '+str);
自己慢慢调整一下

Answer 2

procedure TStringGridFrame.GridDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
 {文字居中}
  with Sender as TStringGrid do
  begin
    Canvas.FillRect(Rect);
    if (ARow>0) and ((ACol>5) and  (ACol<10)) then //数字右对齐
      DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), Length(Cells[ACol, ARow]), Rect, DT_RIGHT or DT_SINGLELINE or DT_VCENTER)
    else
      DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), Length(Cells[ACol, ARow]), Rect, DT_CENTER or DT_SINGLELINE or DT_VCENTER);
  end;
 {文字居中结束}
end;

Answer 3

非常谢谢，lwk_hlj(阿凯(学习.net中)) 谢谢，谢谢楼上各位。
 StringGrid1.Cells[1,0]:='最'+#13+'大'+#13+'级'+#13+'数';  小弟写成这样但没有起到换行的作用，谢谢 谢谢，非常感谢各位

Answer 4

#13#10就对了
例子:showmessage('aa'+#13#10+'bb')

Answer 5

To xjwy(程序春秋)非常感谢
 
             不行了，我试过.
各位仁兄，帮一帮啊

Answer 6

delphi 园地的技术文章对你有帮助的多去看看.那里有一篇刚好是你要解决的问题.

Answer 7

我继承StringGrid写了一个ColorStringGrid,如果需要对网格美化的话,可以给我Email:[email protected]

Answer 8

stringgrid中换行是可以的，只不过是显示的问题而已
procedure TForm1.Button1Click(Sender: TObject);
begin
    StringGrid1.Cells[1,0]:='最'+#13+'大'+#13+'级'+#13+'数';
    ShowMessage(StringGrid1.Cells[1,0]);
end;如果你要在stringgrid中手写换行的话，用ctrl+回车就可以了放心大胆的用吧，代码该怎么写怎么写，没事的！呵呵

Answer 9

楼上的hellolongbin(一个人)兄弟，非常感谢:     是这样的原码:  procedure Tform1.formcreate(sender:Tobject);
                        begin
                           StringGrid1.cells[1,0]:='最'+#13+'大'+#13+'级'+#13+'数';
                        end;         也就是要显示竖行的 "最大级别"   
同时非常感谢各位，谢谢，期待能加几段原码就搞了。

Answer 10

楼上&&楼主：stringGrid内容虽然换行了，但显示是显示不出来的，就算你用ctrl+回车换行了，当前可以显示，但cell失去焦点后还是会显示成一行
另外，类似StringGrid1.cells[1,0]:='最'+#13+'大'+#13+'级'+#13+'数';这种初始化的东西最好写在form的OnShow事件里。