敬业的IT人 >> 编程开发 >> Delphi >> 改变DBGrid列的颜色,没什么特别,但是经过调色师检验欧!

改变DBGrid列的颜色,没什么特别,但是经过调色师检验欧!

敬业的IT人 互联网 佚名 2008-1-4 16:39:21

一个过程,直接调用就可以了!

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)

粤ICP备06119539号
Copyright CiscoSky.Org,Some Rights Reserved.
Email:me1228#tom.com