Grid改變字體顏色

在Grid的onDrawColumnCell   事件中寫  

  if QDetail.fieldbyname('SJGday').Value>6 then
   begin
    grDetail.Canvas.Font.Color:=clRed;
    grDetail.DefaultDrawColumnCell(Rect,DataCol,Column, State);
   end;