一个过程,直接调用就可以了!
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;
(www.sinoprise.com)
文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




