找到 dbgrids 這個 unit 的第 3195 行, 如下: if Highlight then begin Brush.Color := clHighlight; Font.Color := clHighlightText; end; 把 Brush.Color 的值改成您要的顏色 然後重新 compile 這個 unit 試試 有沒有辦法在程式執行中變更 謝謝 Eric Lin

------
Eric Lin

在 onDrawColumnCell 事件加入    

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  If gdSelected in State then
  begin
    DBGrid1.Canvas.Brush.Color := clRed;
    DBGrid1.Canvas.Font.Color := clYellow;
    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,column,state);
  end;
end;

感謝。 已經可以了。 Eric Lin

------
Eric Lin