如题

解决方案 »

  1.   

    我是这样做的,可以的
    -----------------------------------
    procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
     Var
       Grid:Tdbgrid;
       Textto:String;
       G_rect:Trect;
    begin
       G_rect:=Rect;
       Grid:=Tdbgrid(Sender);
       If field.IsBlob then
        begin
          Grid.Canvas.FillRect(Rect);
          Textto:=Field.AsString ;
          Drawtext(Grid.Canvas.Handle,pchar(textto),strlen(pchar(textto)),
                 G_rect,DT_Wordbreak); 
        end;
    end;
      

  2.   

    to xugang96(漂泊在外,居无定所):
        谢谢!能显示了,你能否解释以下?