delphi如何在dbgird增加checkbox

delphi如何在dbgird增加checkbox,第1张

建议使用第三方控件完成这个功能,比如:Ehlib组件包里的DbGridEh控件、cxgrid控件等。

如果自己为dbgfid增加checkbox功能,你就自己在grid里加一个checkbox,然后在事件中处理一下,比如:更新位置和数据连接等等,总之,还是比较麻烦的。

DBGridEH 的checkbox只是个true or false的boolean值

双击DBGridEH 在字段栏设置 checkboxes为true 就可以显示为checkbox了

所以判断是否被选中 只要看是否是true值

静态的就直接在dbgrid中的相应字段的picklist属性里加

如果是动态的就在要出现下拉表的字段的onColEnter事件里写:

rocedure TFBdgeneral.dbgAttribColEnter(Sender: TObject)

egi

//点取'XX'字段时下拉菜单

if dbgAttrib.SelectedField.FieldName='XX' the

egi

maindm.ClientmyQuery.Close

maindm.ClientmyQuery.CommandText:='SELECT content FROM table'

maindm.ClientmyQuery.Ope

dbgAttrib.Columns[1].PickList.Clear//表示colums[1]表示dbgattrib中的第二个字段

if maindm.ClientmyQuery.RecordCount>0 the

egi

maindm.ClientmyQuery.First

while not maindm.ClientmyQuery.Eof do

egi

dbgAttrib.Columns[1].PickList.Add(trim(maindm.ClientmyQuery.Fieldbyname('content').asstring))//动态地把查寻到的内容一个个加到你的下拉表里

maindm.ClientmyQuery.Next

end

end

maindm.ClientmyQuery.Close

end

end

//改动一下,你就可以在某字段下的某条记录加上不同的下拉表


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/bake/11754222.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-18
下一篇 2023-05-18

发表评论

登录后才能评论

评论列表(0条)

保存