[请求]关于DataGrid内容折行显示的实现**

tang_cy

这个是我在DataGrid写的OnCustomDrawCell事件
procedure TCT_Form.DataGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
var
   view_max_len : Integer;             // 允许显示的最大字符长度
   view_HR_len : Integer;                  // 每行显示的字符长度
   temp : string;
   temp2: string;
begin
     if DataSetBroker1.DataSet.State = TDataSetState.dsInactive then
             exit;
     view_max_len := 15;
     view_HR_len := 5;
     // 检查内容
    if (TDataGridColumn(AColumn).FieldName= 'GZNRMS') then
    begin
       if AText.Length > view_max_len then
       begin
            AText := AText.Substring(0,view_max_len) + '...';
       end;
       // 每view_HR_len个字符换行
       temp := AText;
       temp2:= '';
       while temp.Length > view_HR_len do
       begin
            temp2 := temp2 + temp.Substring(0,view_HR_len) + #13#10; // 添加换行
            temp := temp.Substring(view_HR_len);
       end;
       if temp2 <> '' then
       begin
            temp2 := temp2 + temp;
            AText := temp2;
       end;
    end;

end;

但是没有达到我想要的效果，在浏览状态下还是只能显示一行，如下：
测试显示字符串1234567890

我想要的效果是：
测试显示字
符串123
45678
90

atiger

1、把DataGrid 的 optionsView - edgoRowAutoHeight 属性选中
2、把字段的表现类型设置为文本

tang_cy

edgoRowAutoHeight太影响性能了，不打算采用，有没有别的方式？
好像DataGrid在显示的时候将我在OnCustomDrawCell事件添加的#13#10都处理掉了，我怎样禁止DataGrid的这些处理

tang_cy

字段的表现类型设置为文本也只能在编辑状态下有用，浏览状态下还是只有一行

atiger

用表格实现可以不？
这个界面是录入的界面吗?如果是浏览的，那么设置预览状态也可以看到已经换行了

tang_cy

这个界面不是录入界面，只是显示一个列表浏览，但是有些字段内容比较多，需要折行显示

atiger

预览看到的是否ok呢？
或者用表格文档是否可以呢？

sjz10

去网上搜一下“DELPHI StringGrid 换行”。我觉得关于Grid换行的功能，X3应该负责解决掉。

tang_cy

用表格的话会缺少很多事件处理，没有DataGrid方便，比如双击某行我还要弹出信息明细窗体，表格没有相关的事件进行处理吧

另：你说的预览状态是指什么？是DataSetBroker1.DataSet.State  :＝ TDataSetState.dsBrowse
么？还是指别的什么属性？

tang_cy

to : sjz10
用StringGrid么，绑定数据集合不好用哦