假設第一欄是布林值的，你可在 DrawColumnCell 事件設定 :

  if Column.Index = 0 then
  begin
    if Column.Field.AsBoolean then
       DBGrid1.Canvas.Brush.Color := clGreen
    else
       DBGrid1.Canvas.Brush.Color := clRed;
    DBGrid1.Canvas.Pen.Width := 2;
    DBGrid1.Canvas.Pen.Color := clBlack;
    DBGrid1.Canvas.Ellipse(Rect);
  end;

附上範例程式，你可以即使修改布林值會即時改變顏色。 若你想要按該欄即可改變 Ture False 會難一點，做法其本上和 Check Box 一樣，你可參考 : http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19151 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=22608

附加檔案：29488_DBGridLight.zip