真的没有高手么,真的没人会么?

Question

1。
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if dbgrid1.DataSource.DataSet.RecNo mod 2=0 then
  dbgrid1.canvas.Brush.color:=$00BFE4E2 else
  dbgrid1.canvas.brush.color:=$00E3FBFB;
  dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);end;
2。
tstringgrid(dbgrid1).row;
或dbgrid1.datasource.dataset......
3。
dbgrid1.datasource.dataset.reccount;
4.没有
5,帮助能告诉你

Answer 1

1.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (dbgrid1.DataSource.DataSet.RecNo mod 2 )<> 1 then
    dbgrid1.canvas.Brush.color:=$00BFE4E2 
  else
    dbgrid1.canvas.brush.color:=$00E3FBFB;
  
  dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;2.dbgrid1.DataSource.DataSet.RecNo即可获得当前的行数
3.dbgrid1.DataSource.DataSet.recordcount即可获得当前的总行数

Answer 2

to cobi(我是小新，我只有5岁）你是谁？呵呵，怎么用的也是速达的颜色？你这不是和我抢生意么？