现成的设置好象没有吧,只能自己在DrawColumnCell里设了: procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with (Sender as TDBGrid) do begin if Datasource.Dataset.fieldvalues['XXX']=XXX then begin Canvas.Font := …… Canvas.TextRect(rect,0,0,'文本'); end; end;end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with (Sender as TDBGrid) do
begin
if Datasource.Dataset.fieldvalues['XXX']=XXX then
begin
Canvas.Font := ……
Canvas.TextRect(rect,0,0,'文本');
end;
end;end;