delphi 用dbgrid控件显示memo字段的问题

最新推荐文章于 2020-06-11 20:21:10 发布

dipo2207

最新推荐文章于 2020-06-11 20:21:10 发布

阅读量869

点赞数 1

原文链接：http://www.cnblogs.com/JTeacher/archive/2012/11/29/2795053.html

版权

本文探讨了在Delphi 7中使用DBGrid控件显示Memo字段遇到的问题及解决方案。作者强调理解原生控件的重要性，并分享了一段未经完全测试的代码片段，适用于作者的需求。同时，提到了参考的网络资源，用于在DBGrid中显示图片。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

写程序真得花功夫，想用好delphi7下强大的控件不容易，那可以比较出是否理解程序设计的深入程度。我不认为第三方控件怎么好，想更好进行软件开发，还是要会用原本的控件啊，用好了才能更好地学习别的优秀控件。（因为我并不在软件开发上工作，不知道时间的意义，完全是个人爱好）我个人喜好原生态的东西。下面附上代码，没有测试过字符多的情况，但对于我要做的事已经够用了。

procedure TStdInfo.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var adomemo:Tdbmemo;
begin
   if (column.Field.DataType=ftMemo) or (column.Field.DataType=ftFmtMemo) then
   begin
    adoMemo:=TdbMemo.Create(self);
    try
     adomemo.Parent:=stdInfo;
     adomemo.DataSource:=dm.DS_change;
     dbgrid1.Canvas.Font.Color:=clBlue;
     dbgrid1.Canvas.FillRect(rect);
     DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top,adomemo.DataSource.DataSet.FieldValues['other']);
     adomemo.Free;
    Except
      a

最低0.47元/天解锁文章