Question

在delphi中的datagrid怎样使它显示的行间隔改变颜色

Answer 1

请参考以下代码：

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
     if Table1.FieldByName('ext').Asstring<>'' then begin
        DBGrid1.Canvas.Font.Color := clnavy;
     //   DBGrid1.Canvas.Font.Style:=[fsBold];
        DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     end;
end;

Answer 2

procedure TForm1.dbgridDrawColumnCell(Sender:
TObject;
 const Rect: TRect; DataCol:
integer; Column: TColumn;
 State: TGridDrawState);
begin
 if DBGrid2.DataSource.DataSet.RecNo mod 2 = 1 then
 begin
   DBGrid2.Canvas.Font.Color :=
clBlue;
   DBGrid2.Canvas.Brush.Color :=
clyellow;
 end
 else
 begin
   DBGrid2.Canvas.Font.Color :=
clred;
   DBGrid2.Canvas.Brush.Color :=
clGradientActiveCaption;
 end;
 DBGrid2.DefaultDrawColumnCell(Rect, DataCol, Column,
State);
end;