Change the color of the DBGRID column, there is nothing special, but after the toner test!

A process, you can call it directly! procedure ChangeDbGridColColor (ojbDbGrid: TDbGrid); var i: integer; begin for i: = 0 to ojbDbGrid.Columns.Count -1 do begin case i mod 3 of 0: ojbDbGrid.Columns.Items [i] .Color: = TColor ( $ 0023AF82); 1: ojbdbgrid.columns.items [i] .color: = tcolor ($ 00339cdb); 2: ojbdbgrid.columns.Items [i] .color: = tcolor ($ 00c69c6d); end; end;