关于dbgrid的问题,过来帮帮我,解决一定给分

colderboy 2001-10-30 05:45:09
就是我想实现这样一种效果,当在dbgrid的某一行双击的时候,让该行的第一列作一个标志,比如对号什么的,第一列是事先留出来的,没有和数据集关联,所以开始时它是空的,我就想在dbgrid的某一行双击的时候作一个标志,怎么实现呀?
...全文
77 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
colderboy 2002-07-13
  • 打赏
  • 举报
回复
谢谢,结帐
colderboy 2001-10-31
  • 打赏
  • 举报
回复
顶上去
colderboy 2001-10-31
  • 打赏
  • 举报
回复
看这里,就是这种效果

http://iamtop.net/forum/showthread.php?threadid=33

具体的实现过程,最好写出代码
linx88 2001-10-31
  • 打赏
  • 举报
回复
把标志记录下来,每次刷新时都重写。
colderboy 2001-10-31
  • 打赏
  • 举报
回复
有一点效果,可还是不行,当我移到下一行时,那个标志(我打了个对号)又消失了??

还有能说一下具体的创建那个虚拟字段的步骤吗?我创建了一个总提示出错??
comanche 2001-10-30
  • 打赏
  • 举报
回复
楼上的作法是 InfoPower 中 TwwDBGrid 的作法, 装一个InfoPower去?
只要建立一个 计算字段名为 'Selected', 就有以上的效果了
cobi 2001-10-30
  • 打赏
  • 举报
回复
楼上的想法可以
armadawang 2001-10-30
  • 打赏
  • 举报
回复
构造一个虚拟字段:Selected

在DBGrid的DBClick事件中写:
if Not Table.State in dsEditModes) then TAble.Edit;
if TableSelected.asString ='0' then
TabeleSelected.asString := '1';
else
TabeleSelected.asString := '0';
end;
在Table的字段Selected的OnGetText的事件中写:
if Sender.asString := '1' ten
Text := 'V'
else
Text := '╳';

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧