怎样在DBGrid中显示字段为memo的内容

Question

你要在单击事件里显示另外一个窗体，而在个窗体是用来显示memo的内容。
一般在dbgrid里是不能显示的。

Answer 1

加一个DBmemo控件绑定导出来瞧一瞧

Answer 2

在dbgrid中，不能显示memo的字段的值；一般的情况下是通过另一个dbmemo1来显示的，dbmemo也是动态的随着记录在娈化；

Answer 3

dbmemo也是数据感知控件，dbgrid不能显示memo

Answer 4

但我看到有人用过了，还用过CheckBox，真的没办法吗

Answer 5

我想，那不是DBGRID,有可能是将几个控件融合在一起；
再者就是一个新控件

Answer 6

好象可以，你去试一下：
首先用query或adoquery控件来连接dbgrid，
然后双击query控件，右击，选择add all fields，选择定义为memo类型的字段，选择该字段的ongettext事件，在事件里写入以下程序：
  text:=trim(Sender.asstring);
  displaytext:=true;
记不大清楚以上两句那句在前那句再后了！

Answer 7

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Code: Integer;
  Bmp: TBitmap;
begin
  // erase existing output
  DBGrid1.Canvas.FillRect (Rect);  if Column.Field.DataType = ftGraphic then
  begin
    // draw the image
    Bmp := TBitmap.Create;
    try
      Bmp.Assign (Table1Graphic);
      DBGrid1.Canvas.StretchDraw (Rect, Bmp);
    finally
      Bmp.Free;
    end;
  end
  else
  begin
    // choose the font color
    if (Column.Field = Table1Lengthcm) and
        (Table1Lengthcm.AsInteger > 100) then
      DBGrid1.Canvas.Font.Color := clRed
    else if gdSelected in State then
      DBGrid1.Canvas.Font.Color := clHighlightText
    else
      DBGrid1.Canvas.Font.Color := Column.Font.Color;
    // draw the standard text
    DBGrid1.Canvas.TextRect (
      Rect, Rect.Left, Rect.Top,
      Column.Field.AsString);
  end;  // optionally draw the focus rectangle
  if gdFocused in State then
    DBGrid1.Canvas.DrawFocusRect (Rect);
end;

Answer 8

Bmp.Assign (Table1Graphic); 
应改为Bmp.Assign (Column.Field);

Answer 9

yanguozhu的完全正确，我试过了