Dbgrid 当前行颜色

type
  TMyDBGrid = class(TDBGrid);

procedure DemoDrawColumnCell(
  Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  with TMyDBGrid(Sender) do
  begin
    if DataLink.ActiveRecord = Row - 1 then
    begin
      Canvas.Brush.Color := $00FBF0E6;
      Canvas.Font.Color := clBlack;
    end else begin
      Canvas.Brush.Color := Color;
      Canvas.Font.Color := Font.Color;
    end;
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;