捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号-1 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
wwDBGrid第一列加CheckBox用来选择行
关键字:wwDBGrid CheckBox 选择行 计算字段
来 自:原创
平 台:Win2k/XP/NT,Win2003 下载所需:0 火柴
深浅度:初级 完成时间:2007/4/23
发布者:ploe 发布时间:2007/4/24
编辑器:DELPHI7 语  种:简体中文
分 类:组件 下载浏览:3002/17096
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
wwDBGrid第一列加CheckBox用来选择行

1,双击query1,新建一个名字为selected的Boolean型的计算字段
2,设置wwdbgrid1的datasouce属性
3,双击wwdbgrid1,设置selected字段的Control Type属性为CheckBox,下面的值填入True 和False
4,将wwdbgrid1 的属性 EditControlOptions中的ecoCheckboxsingleclick设置为true(目的是不需要双击checkbox就可以选中或取消checkbox)
5,将wwdbgrid1的属性Optins下的dgRowSelect和dgMultiSelect设为true

pwj15487@sohu.com
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
InfoPower Studio 2007 v5.0.1.3
deepblue 2007/7/30 下+10305/浏+21962 评+14
wwDBGrid第一列加CheckBox用来选择行
ploe 2007/4/24 下+3002/浏+17097 评+3
让WWDBGrid支持UniCode显示和录入
hsgrass 2007/3/14 下+1672/浏+15466 评+6
InfoPower Studio 2006 Trial – 3/5/06
yimanwk 2006/5/30 下+1986/浏+12818 评+8
InfoPower v4000.0.6 Pro For D7
leo 2004/8/6 下+20147/浏+26526 评+18
InfoPower v4000.0.5 Full Source For D7
hardnut 2004/5/16 下+4396/浏+21113 评+12
InfoPower 4000.0.4 For D7 (数据库控件包)
sephil 2003/9/26 下+4470/浏+20784 评+23
InfoPower 4000.0.4 For D6 (数据库控件包)
sephil 2003/9/26 下+2351/浏+14833 评+6
InfoPower 4000.0.4 For D5 (数据库控件包)
sephil 2003/9/26 下+772/浏+10990 评+3
InfoPower 4000.0.3 (数据库控件包)
mantousoft 2003/9/22 下+3551/浏+22952 评+9
相关评论
共有评论3条 当前显示最后3条评论
tjq 2008/4/11 13:53:45
怎么有时侯是单选 多选属性已设定过了
hsgrass 2008/5/12 13:59:22
谢谢阿, 我正在烦这个事情:)
hsgrass 2008/5/12 16:07:42
// 原來在WW內部已經固定為這個SELECTED字段+計算字段就可以作為CHECKBOX選擇,呵呵
// 不用自己畫啦
procedure TwwDBGrid.ToggleCheckBox(col, row: integer);
var
    dbColumn: integer;
    value: string;
    checkBoxOn, checkBoxOff: string;
    tempField: TField;
begin
   if not isCheckBox(col, row, checkBoxOn, checkBoxOff) then exit;

   dbColumn:= dbCol(col);
   if (DataLink.fields[dbColumn].ReadOnly) then exit;

   if (Columns[dbColumn]<>Nil) and (Columns[dbColumn].ReadOnly) then exit;

   tempField:=GetColField(dbColumn);
   if (tempField.calculated) and (lowercase(tempField.fieldName)='selected') then
   begin
      if isSelected then UnselectRecord
      else SelectRecord;
   end
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1 更新RSS列表