各位大大， 1.如題，我已經搜尋相關文章，但無合適答案，請協助 2.小弟使用TdxDBGrid，有訂單開立日期，採購、生產、銷售等三個預定完成日與實際完成日期，預定完成日需要與實際完成日期做比較。 3.若實際完成日期(若空白預設值為今天)接近預定完成日(差一日)則該欄背景變成黃色 4.若實際完成日期(若空白預設值為今天)大於預定完成日則該欄背景變成紅色 5.正常的話為預設的底色 ~拜託各位大大給予協助~ SNOOPY

您好: 以下是控制,紅色地方是我控制如果Payed欄位大於10的時候會讓他變顏色,您自己改改看吧.

procedure TzManagement.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
with DBGrid1.Canvas do
 begin
  // 先預設顏色
  if GDSelected in State then // Select光棒停在此Cell
   begin
    Font.Color:=clHighLightText; // 正常的DBGrid顏色
    Brush.Color:=$007D3F00; // 正常的DBGrid顏色
   end
   else begin // Select光棒未停在此Cell
    Font.Color:=clBlack; // 正常的DBGrid顏色
    Brush.color:=clWhite; // 正常的DBGrid顏色
   end;
  // 設定指定Cell的顏色
//  if DataCol=1 then // 第二個欄位
  if (GDSelected in State) then // Select光棒停在此Cell
   begin
    if ((Sender as TDBGrid).DataSource.DataSet.FieldByName('Payed').AsInteger>=10)
     then Brush.Color:=$007D3F00;// 字變紅色加一點白色調(這樣反白效果才會好)
   end
   else begin // Select光棒未停在此Cell
    if ((Sender as TDBGrid).DataSource.DataSet.FieldByName('Payed').AsInteger>=10)
      then Brush.Color:=$00A4A4FF; // 字變紅色
   end;
      // 一定要執行繪圖的動作
  DbGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,[]);
 end;
end;

發表人 - supman 於 2005/07/05 17:52:14

supman 大大您好： 您的方式只能使用於標準的TDBGrid元件， 但因小弟使用的市非標準的TdxDBGrid元件， 所以無法使用，不過還是謝謝您！