在DBGRID中如何使第一列在双击后显示对号√
选择 礼品代码 礼品名称
----- ------------- -----------------------
001 毛巾
002 口杯
003 洗衣液================================就是在双击某一行时,“选择”这个栏里加个对号,作用是批量选择,批量添加的功能。
注:选择这个字段在数据库里没有,只是一个临时字段,计算字段。
选择 礼品代码 礼品名称
----- ------------- -----------------------
001 毛巾
002 口杯
003 洗衣液================================就是在双击某一行时,“选择”这个栏里加个对号,作用是批量选择,批量添加的功能。
注:选择这个字段在数据库里没有,只是一个临时字段,计算字段。
解决方案 »
- 文本编辑器程序的多个错误!!
- 关于delphi一段代码,高手指点 if (p[5]='*') and (p[8]='*') and ( p[9]='*') and (p[10]='%') t
- 求助:怎么把一个时间和天数加起来,谢谢!
- 请问Delphi如何向Oracle中插入日期格式的数据
- 初学,高手进来解决一下
- 如何调用GetVolumeInformation获得磁盘序列号
- 散分,来来来,来者有分,up也有分,呵呵!
- 为何在form.show中用CANVAS画图,窗体出现时,图并未画出?
- 100分,请大家帮我看看这段简单代码的错误??
- 如何讓窗體移動??
- 软件自动升级的问题
- 对象关闭时,不允许操作
使用applyupdates进行最终的数据提交。
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Index = 0 then
begin
dbgrd1.Canvas.FillRect(Rect);
// ImgList1.Draw(dbgrd1.Canvas, Rect.Left, Rect.Top, 0, true);
dbgrd1.Canvas.Draw(Rect.Left, Rect.Top, img1.Picture.Bitmap);
dbgrd1.Canvas.TextOut(Rect.Left + 20, Rect.Top, Column.Field.DisplayText);
end;
end;
或者你可以用listview,设置checked属性为true,这样,你需要自己绑定数据到listview上