如何使dbgrid不同行显示不同的颜色? 急 ONDrawColumnCell这个事件中写代码可以参看StringGrid控件的OnDrawCell事件中的例子 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ONDrawColumnCell这个事件中写代码可以参看StringGrid控件的OnDrawCell事件中的例子Delphi的帮助里有一段例子 将dbgrid的defaultdrawing设为false;在ondrawdatacell里重设brush的color stringgrid中有AEow属性来控制行,但dbgrid中好象没有用来控制行,只有datacol和column来控制列吧? 这个试试:能将DBGrid的颜色隔一行相同procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if (Table1.Recno mod 2) <> 0 then begin DBGrid1.Canvas.Font.Color := clWhite; DBGrid1.Canvas.Brush.Color := clRed; //这里设置单元格填充色 DBGrid1.Canvas.FillRect(Rect); //这里对相应的单元格进行北景色填充 end; //输出内容 DBGrid1.Canvas.TextRect( Rect, Rect.Left, Rect.Top, Column.Field.AsString);end; 谁能告诉我这段代码的意思? 没分了,新手再求教个问题 关于DBGrid 取特定网格数据的的问题 谁有把查询出来的记录集保存为Excel、DBF等文件的控件或源码?——愿高分相送! win2k server+delphi6的奇怪现象!高手帮忙啊!! POS收银系统,求一段开"水晶头接口的钱箱"的代码 如果存在多个 working directory ,该如何设置呢? 用ADOTable连接数据库,修改结果不能更新到数据库中。请问如何解决?? 存储过程返回数据集的问题,大家帮忙!存储过程已经帖出来了 急急!!数据流量流量,快救我!!! 回复:关于进销存的常见问题,进来看看好吗? why
可以参看StringGrid控件的OnDrawCell事件中的例子
Delphi的帮助里有一段例子
在ondrawdatacell里重设brush的color
能将DBGrid的颜色隔一行相同
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (Table1.Recno mod 2) <> 0 then begin
DBGrid1.Canvas.Font.Color := clWhite;
DBGrid1.Canvas.Brush.Color := clRed; //这里设置单元格填充色
DBGrid1.Canvas.FillRect(Rect); //这里对相应的单元格进行北景色填充
end;
//输出内容
DBGrid1.Canvas.TextRect( Rect, Rect.Left, Rect.Top, Column.Field.AsString);
end;