DBGrid 色によって色を変化するには (ID:32323)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 過去ログを参考にして実装してみましたが、選択していない行まで 色が変わってしまったり、挙動が怪しいです。 with TDBGrid(Sender) do begin if (Canvas.Brush.Color = clWhite) and (TDBGrid(Sender).SelectedRows.CurrentRowSelected = True) then begin Canvas.Brush.Color := clBlack; end else begin Canvas.Brush.Color := clWhite; end; DefaultDrawColumnCell(Rect, DataCol, Column, State); end;