谢谢。问题我已解决了。下面是代码: procedure TDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;Column: TColumn; State: TGridDrawState); var R : TRect; begin If Assigned(DataSource) And Assigned(DataSource.DataSet) And DataSource.DataSet.Active Then Begin If Assigned(Column.Field) Then Begin If (Column.Field.DataType=ftMemo) Then Begin If FDrawMemo<>gedmNo Then Begin R:=Rect; Canvas.FillRect(R); Inc(R.Top,2); Inc(R.Left,2); DrawText(Canvas.Handle, PChar(Column.Field.AsString), Length(Column.Field.AsString), R, DT_WORDBREAK OR DT_NOPREFIX); End End end;
procedure TDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;Column: TColumn; State: TGridDrawState);
var
R : TRect;
begin
If Assigned(DataSource) And Assigned(DataSource.DataSet) And DataSource.DataSet.Active Then Begin
If Assigned(Column.Field) Then Begin
If (Column.Field.DataType=ftMemo) Then Begin
If FDrawMemo<>gedmNo Then Begin
R:=Rect;
Canvas.FillRect(R);
Inc(R.Top,2);
Inc(R.Left,2);
DrawText(Canvas.Handle, PChar(Column.Field.AsString),
Length(Column.Field.AsString), R,
DT_WORDBREAK OR DT_NOPREFIX);
End
End
end;