DBGridEh字段显示段落型文字后显示异常的解决方法

最后在给客户做系统时遇到了一个棘手的问题，开单时，每个产品都有“产品说明”这个字段，我自然会用DBGridEh表格，每行一个产品，不过我发现产品的说明很长，甚至是几段文字，这时DBGridEh的RowHeight为0就是自动的话还没有问题，但当时客户说行太窄了，要调高些，这时对应这栏文字就会出现几行文字，赶紧将这个字段的EndEllips设为True，WordWrap设为False，也不行了，这下尴尬了，行调窄了客户不愿意，调高了这栏的文字就会冒出来几行上下行互相覆盖相当难看，大家可以试试。

出问题时的条件

DBGridEh的属性：RowHeight=25，

栏目属性：EndEllips=True，WordWrap=False

这时你在这栏输入几行带回车的文字，你就会发现问题

解决方法：

本次数据源是TADOQuery，先将所有的Field导入，选择"产品说明"的这个字段，编写OnGetText事件

procedure TForm_IQOrder1.QueryBill1HotelNameGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  Text:=StringReplace(Sender.AsString,#13,'',[rfReplaceAll]);
end;

原理是处理这个字段要显示的文字，将字段里带回车的字段换成空再显示，问题解决，这个事件只处理显示文字，不对字段实际内容产生影响，这样不管文字有多长（字段允许范围内的啊），有几段文字，他都会只显示一行。