delphi Dbgrid隔行数据显示奇偶色

最新推荐文章于 2021-08-14 09:17:37 发布

转载最新推荐文章于 2021-08-14 09:17:37 发布 · 1.1k 阅读

文章标签：

#delphi

delphi 专栏收录该内容

27 篇文章

订阅专栏

本文介绍如何使用DBGrid1DrawColumnCell事件实现Dbgrid隔行数据显示奇偶颜色的效果。通过计算行号并判断是否为偶数来决定背景色及字体颜色。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

目标：Dbgrid隔行数据显示奇偶色

DBGrid1DrawColumnCell 事件：

var
  RowHeight,Row:INteger;
begin
  RowHeight := Rect.Bottom - Rect.Top + 1;       //Rect矩形
  Row := (Rect.Top div RowHeight);
  if  row mod 2 = 0 then
    begin
      dbgrid1.Canvas.Brush.Color:=cl3Dlight;
      dbgrid1.Canvas.Font.Color:=clBlack;
    end;

   dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;