在Grid的onDrawColumnCell 事件中写
if QDetail.fieldbyname('SJGday').Value>6 then
begin
grDetail.Canvas.Font.Color:=clRed;
grDetail.DefaultDrawColumnCell(Rect,DataCol,Column, State);
end;
在Grid的onDrawColumnCell 事件中写
if QDetail.fieldbyname('SJGday').Value>6 then
begin
grDetail.Canvas.Font.Color:=clRed;
grDetail.DefaultDrawColumnCell(Rect,DataCol,Column, State);
end;