社区
Delphi
帖子详情
如何动态改变DBGrid的表行颜色?
ccll
2000-08-01 08:12:00
各位大虾,谁知道如何动态改变DBGrid表行的颜色,不是在DrawColumnCell事件中进行处理,而是动态的,比如用鼠标双击某一行,使这一行变成红色等,并能读取此行的颜色值。最好有样例。谢谢!
...全文
331
6
打赏
收藏
如何动态改变DBGrid的表行颜色?
各位大虾,谁知道如何动态改变DBGrid表行的颜色,不是在DrawColumnCell事件中进行处理,而是动态的,比如用鼠标双击某一行,使这一行变成红色等,并能读取此行的颜色值。最好有样例。谢谢!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
ccll
2000-08-07
打赏
举报
回复
大虾们说来说去,还是没逃掉DrawColumnCell事件,请看问题具体内容!
Seoul
2000-08-05
打赏
举报
回复
下面是我在程序中用的一段代码, 供你参考
procedure TMainFrm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if DataMoudle.Query1.FieldByName('CLBZ').asBOOLEAN=TRUE then
begin
DBGrid1.Canvas.Brush.Color:=clBtnFace;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.Font.Color:=clBlue;
DBGrid1.DefaultDrawColumnCell (Rect,DataCol,Column,State);
end;
end;
shylsz
2000-08-05
打赏
举报
回复
先给某table添加一个新字段"aa",再加入如下代码就可以实现了。
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin if table1.FieldByName('aa').asstring='001' then
begin
DBGrid1.Canvas.Brush.Color:=clred;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.Font.Color:=clBlue;
DBGrid1.DefaultDrawColumnCell (Rect,DataCol,Column,State);
end;
end;
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
table1.Edit;
table1.FieldByName('aa').asstring:='001';
end;
ccll
2000-08-04
打赏
举报
回复
bpc的方法不行,不是在DrawColumnCell事件中。
bpc
2000-08-01
打赏
举报
回复
代码如下:
Dbgrid1.cancas.font.color:=clred; //红色
dbgrid1.defaultdrawcolumcell(rect,datacol,colum,state);
zoao
2000-08-01
打赏
举报
回复
l
Delphi
改变
DB
grid
控件选中时的单元格
颜色
.rar
Delphi
改变
DB
grid
控件选中时的单元格
颜色
,一般在默认状态下,
DB
grid
在行被选中时是深蓝色的,本程序将
改变
这个深蓝色为用户自定义
颜色
。操作方法很简单:当选中
DB
grid
任意行时,点击上部的任意
颜色
值,此时就已经将
DB
Grid
控件的选中行
颜色
改变
为用户选中的
颜色
。
计算机软件-商业源码-实例96
动态
改变
DB
Grid
组件的
颜色
.zip
计算机软件-商业源码-实例96
动态
改变
DB
Grid
组件的
颜色
.zip
DB
Grid
改变
背景
颜色
Delphi源代码
DB
Grid
改变
背景
颜色
Delphi源代码
可在
DB
Grid
元件的 DrawDataCell 事件中依资料的条件性来
改变
格子或文字的
颜色
可在
DB
Grid
元件的 DrawDataCell 事件中依资料的条件性来
改变
格子或文字的
颜色
Delphi美化
DB
Grid
控件表头、格线及
颜色
等,纯Delphi代码
内容索引:Delphi源码,数据库应用,
DB
Grid
纯Delphi代码实现美化
DB
Grid
,不少朋友都会发现,
DB
Grid
缺省的外观样式实在有些单调或缺少创意,用在自己的软件中,美观性实在不敢恭维,但是不用又不行,必竟
DB
Grid
是Delphi中最为普遍的数据显示控件。那么解决问题的方法是我们自己动手美化
DB
Grid
,
改变
表头、网格、格线前景色和背景色,以及字体大小等,其实也很简单,相信你看了本代码后就会明白其中的原理了。
Delphi
5,384
社区成员
262,728
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章