Change the color of the DBGRID column, nothing special, but after the coloring staff inspects Europe!

zhaozj2021-02-16  90

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;

(www.sinoprise.com)

转载请注明原文地址:https://www.9cbs.com/read-12134.html

New Post(0)