dbgrid中設定所選資料列顏色及選中字體顏色的屬性是哪一個?

參考: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=40353    -- 分擔可以輕省, 分享帶來喜樂! 發表人 - hagar 於 2005/04/07 20:15:35

沒有。 一般選擇資料列的顏色及文字顏色，是引用 clHighlight及clHighlightText。 因此若要設定： 1. 更改 clHighlight及clHighlightText 系統顏色。    不過一改全部都改。不是很好！ 2. 在DrawColumnCell 自己畫。

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
const
  AlignFlags : array [TAlignment] of Integer =
    ( DT_LEFT or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX,
      DT_RIGHT or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX,
      DT_CENTER or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX );
  RTL: array [Boolean] of Integer = (0, DT_RTLREADING);
var
  ARect : TRect;
begin
  if gdSelected in State then
  begin
    ARect := Rect;
    ARect.TOP := ARect.TOP   2;
    
    DBGrid1.Canvas.Brush.Color := ClRed; {欲設定的底色}
    DBGrid1.Canvas.Font.Color  := ClWhite;{欲設定的字體色}
    DBGrid1.Canvas.FillRect(Rect);        DrawText(DBGrid1.Canvas.Handle
            ,PChar(Column.Field.AsString)
            ,Length(Column.Field.AsString)
            ,ARect
            ,AlignFlags[Column.Alignment] or RTL[IsRightToLeft]);
  end;
end;

參考參考吧！