自己画啊。
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
S: string;
R: TRect;
begin
S := ...; // 取得要显示的字段的内容
R := Rect;
with DBGrid1 do
begin
Canvas.Rectangle(...); // 填充格子背景
DrawText(Canvas.Handle,PChar(S),-1,R,DT_WORDBREAK);
end;
end;
