说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

使dbgrid的某几笔资料变色-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
使dbgrid的某几笔资料变色-Delphi资料

你可在 DBGrid 元件的 DrawDataCell 事件中

依资料的条件性来改变格子或文字的

颜色.

如 :

OnDrawDataCell(...)

begin

with TDBGrid(Sender) do

begin

if (条件) then

Canvas.TextOut(Rect.Left + 4

Rect.Top + 2

'要显示的文字

如表格的资料');

end;

而你会看到 DBGrid 的显示资料怎麽有重叠的情况

那是因为原本DBGrid

要显示的资料与 TextOut 所显示的资料重叠

解决方法 :

在 Query 元件所加入的栏位(在元件上按右键

会有 Add Fields...的选单)

不要显示资料的栏位的 OnGetText 事件中有一参数设定为 False;

procedure TForm1.Query1Detail1GetText(Sender: TField; var Text: string;

DisplayText: Boolean);

begin

// 决定在 DBGrid 得知表格资料时

要不要显示所得到的资料

False -> 不显示

// 就可避免与 TextOut 的文字重叠了

DisplayText : = False;

end;

end;

如果用 Delphi 3 处理很简单.

例如

对表中某字段当其数值小于0时为红字

其他为黑字.

在 DBGrid.OnDrawColumnCell(...) 中:

begin

if TableField.AsInteger < 0 then

DBGrid.Canvas.Font.Color := clRed

else

DBGrid.Canvas.Font.Color := clBlack;

DBGrid.DefaultDrawColumnCell(...);

end;

这样

对 Field 指定的格式仍旧生效

不必重写.

参加“我们都用JIRA”视频征集大赛 赢取乐视TV超级电视 开发者下一个待开发市场:印度 一周消息树:80%开发者背井离乡,70%经常加班 移动周报:最受欢迎的跨平台开发工具推荐 研发周报:Mt.Gox破产,都是错误编程惹的祸 数据挖掘+人工智能,教育定制化下的学霸量产 通过700合作伙伴的进一步细分,Google变得越来越像微软 一周热点:高薪必备:Hadoop求职者的6大攻略 谷歌Android主管:两周内为开发者推出可穿戴设备SDK 【OSTC讲师专访】魏子钧: “中国式开源”没有“然后” 揭秘CarPlay欲将颠覆汽车产业的真相 联想王岳源:利用Web App推动互联网转型 IT经理人:提高团队工作效率的11个方法 30美元一小时,数据科学家的收入是否太低? 选择Go语言的12个理由 动鱼数码携三款大作参战Unity游戏及应用大赛 从Google、Apple、Dropbox、Twitter和Square学到的管理哲学 软件开发就像炒股,关键看你怎么选股票! iOS 7.1正式版:新增CarPlay连接功能、完美支持iPhone 4 【OSTC讲师专访】马全一:Docker,Hadoop的竞争者来了! 福布斯:全球那些富可敌国的科技大佬们 抢工作、争资源,如此聪明的AI你拿什么阻止? iUI:移动Web应用开发必备的开源框架 支持iOS 7.1!苹果发布Xcode 5.1更新 视频云将成为2014年乐视新的发力点 3月12日:万维网迎来理念诞生25周年 《近匠》云适配CEO陈本峰:跨屏移动,曲线一样救国 Intel陈荣坤:赢取移动市场的几个先决条件 而立之年,开发者在害怕什么? 首席工程师揭秘:LinkedIn大数据后台是如何运作的 年交易额1800亿美元,揭秘PayPal成功背后的三大热门技术 高分求教:一个DataGrid显示双DataTable!走过路过都有份! 怎样代码控制servers中excel的合并单元格?? google能找到我了,散分咯 急问Flash. ADOCE怎样访问excel数据表格? 请 ccmoon(IzuaL) 和 cloudchen(陈系上) 进来领分, 我该怎么做? 关于将输入字母转换为大写的问题! 谁给我解释这个sql语句! 怎么将sql server 6.x 的备份文件,恢复到sql server 7上 请教pb中有没有模式窗口和非模式窗口的概念?? 设备内容句柄在Delphi中有这个类吗?如何表示? hxzhappy(冰雨)快来接分 请问在contexMenu控件中show方法如何写 请问用VC,如何在WIN2000下连接一个SQL数据源? 入参与出参 关于国外发布的软件,可以使注册用户在线或取注册码! win2000下怎样建立代理服务器 有关DBGrid的问题。 在其他版看到一个很有意思的贴子“如果是你招聘人,你会不会招和自己技术,资历差不多的,甚至超过自己水平的?”欢迎大家讨论。 急!关于innerhtml的错误? hxzhappy(冰雨)快来接分 在线求助,急 请教各位,我的sybase的数据库的log设备(即syslogs表)最近增长很快,每天增长40多兆,如何解决??? 想做一个网络代理上网 c语言中三维数组的问题??? 求助:word文件加密后忘记密码如何打开原文件? 请教 : photoshop 中--highlight shadow midtone 提问,非高手勿入,打印的问题,100分,不够另加 关于oracle预留字作字段名的问题。 ● 求助,2000 Professional一登录就自动注销,怎么解决? 一个很棘手的问题? 谁给我解释这个JS函数 請高手幫改寫一段datagrid程序. (100分相送) (2)菜鸟问题!!容易拿分呀!! 如何在SQL SERVER上实现ORACLE中的package的功能 对windows编程,如何控制鼠标箭头阿 在2000下,希望不同的账号登陆,文件的可见属性不一样,能做到吗? 页面元素隐藏的问题 急 读文本出现乱码??? 高分求演示制作软件一个,以前知道lotus123可以做,可是找不到下载!!! 如何使窗口最大化? 请问:怎样使jar包里的类能读取同在此jar包中的一个xml文件 关于table 如何远程执行ORACLE上的存储过程? 有关toolbutton的用法 公布我公司的MS 2000技术支持客户号,呵呵! 关于使用组件是出现“没有注册类别” 高分求数据库操作类(查询、更新、事务等),共同提高。分不够可载开贴! error C2065: 'CMyPointDoc' : undeclared identifier 请帮解决! open_cusors问题,超过了open_cusors的最大值!! 海水可以吃吗? 小鲸鱼吃奶的时候海水会不会吃下去?都是液体,如果一起吃下去了那乳汁岂不是稀释了 翻译:建国君民,教学为先 翻译:是故古之王者建国君民,教学为先. 提出 建国君民,教学为先 主张的著作是 运动完后不能吃什么东西? 金鱼缸里的细菌屋怎么放 已知:MnO2+4HCl==MnCl2+2H2O+Cl2,现在用174gMnO2与足量浓盐酸反应制Cl2时,消耗HCl多少克?被氧化HCl多少克?氧化产物与还原产物的质量之比为多少?但是为什么只有一半氯化氢被氧化 氧化碳中混有少量的氯化氢,怎样除去氯化氢? f(x)=1/2-1/2x+1奇偶性这是两个分数相减,x是上标求天赐一学霸 F(X)=x^2+2/2X的奇偶性 叙境内23个化武设置点 21个已被禁谷歌Hangouts升级整合短信 欲日本9月份工矿业生产改善Oculus Rift将生产安卓手机\"人民币女郎\"病危就医 为新中国治污减霾刻不容缓 中国展开“呼吸保卫云南绿春县发生滑坡灾害 1人因石岩坍宁波银行倾力支持灾区重建 6亿专项贷浙江革命烈士纪念馆开展中国共产党92“人民币女郎”病危就医 为新中国首位绍兴市调整行政区划 撤销绍兴县上虞市各地祭扫人数回落都是老家习俗惹祸花姑的情意无人机再三坠韩引发担忧上调最低工资标准今日24时起走高速将不免费带“病”的大病保险何谈“保险”本科生多金 研究生清贫日本庆祝神道生育节三男见义勇为斗匪4∶2逆转阿尔滨恒大重返榜首
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘