Delphi DBgrid包装Word内容

Question

Delphi（xe）中的Word Wrap DBgrid Cell（高度）是否可行？ 我有一个dbgrid，其中多列具有固定的Column宽度，而一些columuns最多为100char，我需要它们以适合相应的Cell而不更改Column宽度。

有任何线索怎么做？

感谢。

Answer 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;