让DBGrid产生斑马线般的显示效果

　　在用Delphi开发数据库管理系统时，因为DBGrid控件使用起来非常方便和简单，因此大多数时候我们会用它来进行大批量数据的显示。但美中不足的是DBGrid只能以同一种颜色显示所有的数据行。为了让程序界面更加友好，用户在进行数据浏览时能一目了然，我们能不能让DBGrid中的数据行以不同的颜色交错显示，以产生斑马线般的效果呢？答案是肯定的。
源代码网推荐
源代码网推荐 要想达到不同颜色交错显示的效果，我们只需要在DBGrid控件的OnDrawColumnCell事件中添加适当代码即可。具体代码如下：
源代码网推荐
源代码网推荐 ...
源代码网推荐 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
源代码网推荐 const Rect: TRect; DataCol: Integer; Column: TColumn;
源代码网推荐 State: TGridDrawState);
源代码网推荐 begin
源代码网推荐 inherited;
源代码网推荐 with DBGrid1 do
源代码网推荐 begin
源代码网推荐 if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then
源代码网推荐 begin
源代码网推荐 Canvas.Font.Color :=ClYellow;
源代码网推荐 Canvas.Brush.Color :=ClNavy;
源代码网推荐 end
源代码网推荐 else
源代码网推荐 begin
源代码网推荐 if DataSource1.DataSet.RecNo mod 2< >0 then {判断当前数据是奇数还是偶数行}
源代码网推荐 Canvas.brush.Color :=ClWhite {如果是奇数行，DBGrid背景以白色显示}
源代码网推荐 else
源代码网推荐 Canvas.brush.Color :=$00EAEAEA; {如果是偶数行，DBGrid背景以浅灰色显示}
源代码网推荐 end;
源代码网推荐 DefaultDrawColumnCell(Rect, DataCol, Column, State); {这行很关键的，一定不要遗漏了}
源代码网推荐 end;
源代码网推荐 end;
源代码网推荐 ...
源代码网推荐 注意：为了节约篇幅，在本文中，笔者没有指定TDBGrid的数据源控件和数据访问控件，请大家自行加上。
源代码网推荐
源代码网推荐 好了，存盘后运行一下，看看是不是舒服多了。
源代码网推荐
源代码网推荐 程序在Windows 98SE中文版、Delphi 5.0 (Build6.18) Update Pack1下调试通过。