Delphi DBgrid 换行 Word 内容答案

【问题标题】：Delphi DBgrid Wrap Word ContentDelphi DBgrid 换行 Word 内容
【发布时间】：2014-12-19 09:35:35
【问题描述】：

是否可以在 Delphi (xe) 中自动换行 DBgrid 单元格（高度）？我有一个带有固定列宽的多列的 dbgrid，有些列最多有 100 个字符，我需要它们在不改变列宽的情况下适应适当的单元格。

有什么办法吗？

谢谢。

【问题讨论】：

使用ownerdraw，绘制文字OnDrawCelll
@kobik，但您也需要调整行高。
这肯定已经被做了几千次了google.com/search?q=delphi+wrap+dbgrid
@kobik：TDbGrid 没有 OnDrawCell。它确实有 OnDrawColumnCell

标签： delphi dbgrid

【解决方案1】：

您需要将其设为 ownerdraw，并在 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;

【讨论】：