各位朋友们好，能看一下我这个有关Dbrid变色方面的问题吗？

Question

procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (gdSelected in State) then
  begin
    DBGrid1.Canvas.Brush.Color:=clYellow;
    DBGrid1.Canvas.Font.Color := ClBlack;
  end
  else
  begin
    if (DBGrid1.DataSource.DataSet.RecNo mod 2=1) then
      DBGrid1.Canvas.Brush.Color:= clGreen
    else
      DBGrid1.Canvas.Brush.Color:= clRed;
  end;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
不过要保证你的Query是ADO～否则如果是BDE的话不管用

Answer 1

BDE是管用～可是不好～不能隔一行换颜色～～

Answer 2

http://www.yesky.com/20010307/160796.shtml
实战Delphi数据网格色彩特效

Answer 3

tikkypeng(一两狂死郎之天衣有缝) 的正确哦！！！！！！