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

来源:互联网 发布:淘宝市场调研调查报告 编辑:程序博客网 时间:2024/05/17 01:01

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

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)

原创粉丝点击