一个过程,直接调用就可以了!
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;
end;