Delphi DBgrid 换行文字内容

Question

是否可以在 Delphi (xe) 中自动换行 DBgrid 单元格(高度)？我有一个 dbgrid，其中包含具有固定列宽的多列，并且某些列最多有 100 个字符，我需要它们在不更改列宽的情况下适合适当的单元格。

知道如何做吗？

谢谢。

Answer 1

您需要使其成为所有者绘制，并在 OnDrawCell 事件中输入代码来填充单元格:

procedure TForm4.Grid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);  
begin
Grid1.Canvas.TextRect(Rect, Rect.Left+1, Rect.Top+1, WrapText(Grid1.Cells[ACol,ARow], 40));
end;