怎样在dbgrid中显示memo字段的内容?

ggqqll 2002-04-17 11:14:23

怎样在dbgrid中显示memo字段的内容，我得只显示一个memo，怎么让他全部显示出来呢？

...全文

182 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

macro_love 2002-04-17

打赏
举报

首先用query或Table控件来连接dbgrid，
然后双击query/Table控件，右击，选择add all fields，选择定义为memo类型的字段，选择该字段的ongettext事件，在事件里写入以下程序：
text:=trim(Sender.asstring);
displaytext:=true;

yangkunjie 2002-04-17

打赏
举报

这个问题以前提过，找个解决办法帮你踢。。。。
procedure TDataGrid1.DrawColumCell(const Rect: TRect; DataCol: integer;
Colum: TColum; State: TGridDrawState);
var
bmp: TBitmap;
OutRect: TRect;
begin
with DataGrid1 do
begin
Canvas.FillRect(Rect);
OutRect := Rect;
InflateRect(OutRect, -2, -2);
if Colum.Field is TGraphicField then
begin
bmp := TBitmap.Create;
try
bmp.Assign(Colum.Field);
Canvas.StretchDraw(OutRect, Bmp);
finally
bmp.Free;
end;
end
else if Colum.Field is TMemoField then
begin
DrawText(Canvas.Handle, Pchar(Colum.Field.AsString),
Length(Colum.Field.AsString), OutRect, dt_WordBreak or dt_NoPrefix);
end
else
DrawText(Canvas.Handle, Pchar(Colum.Field.DisplayText),
Length(Colum.Field.DisplayText),
OutRect, dt_WordBreak or dt_NoPrefix);
end;
end;