盒子论坛 v2.1

procedure TForm1.dbgrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
With dbgrid1 do begin
    If Odd(adotable1.FieldByName('编号').AsInteger) then
     begin
    Canvas.Brush.Color:=$02E8F8F8;
    Canvas.FillRect(rect);
    Canvas.TextOut(rect.Left+2,rect.Top+2,field.AsString);
    end
    else begin
       Canvas.Brush.Color:=clwhite;
       Canvas.Font.Color:=$02330000;
       Canvas.FillRect(rect);
       Canvas.TextOut(rect.Left+2,rect.Top+2,field.AsString);
    end;
    If State=[gdSelected] then begin
      Canvas.Brush.Color:=$02445511;
      Canvas.Font.Color:=clWhite;
    end;
  end;
Dbgrid1.DefaultDrewDataCall(Rect,Column.Field,State);

end;
最后把Dbgrid的DfaultDrawing属性设置为false就可以了.
你看一下效果是不是你想要的,依此你可以去写其它为条件的代码.

----------------------------------------------

信息

登陆以后才能回复