?向高手请教：如何在stringgrid的一个cell中输入多行文本？

Question

我在做毕业设计时，用到stringgrid控件，但可惜每个cell中只能显示
一行字符，而在字符串中加入#13仍然在一行中显示，谁知道该如何实现呢？

Answer 1

在它的OnDrawCell事件中自行处理吧。

Answer 2

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with StringGrid1 do
  with Canvas do begin
    FillRect(Rect);
    DrawText(Handle, PChar(Cells[ACol, ARow]), Length(Cells[ACol, ARow]), rect, DT_WORDBREAK);
  end;
end;