Delphi DBgrid 换行 Word 内容

Posted 2023-05-07

【中文标题】Delphi DBgrid 换行 Word 内容

【英文标题】：Delphi DBgrid Wrap Word Content

【发布时间】：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

【参考方案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;