• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

DelphiTAdvStringGrid在表格显示出下拉列表

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

TAdvStringGrid表格显示下拉列表的时候,总是刷新 并且选择的内容被清空,如下图:

后来调整属性,在表格的ContrtolLook属性下的DropDownAlwaysVisible的属性设置为True,并且在表格的HasComboBox的方法中,增加如下代码,解决问题

 

procedure TForm_DWUserManager.advstrngrd_SubDWHasComboBox(Sender: TObject;
  ACol, ARow: Integer; var HasComboBox: Boolean);
var
  FieldClass: TFieldClass;
begin
  FieldClass := TFieldClass(GetField(advstrngrd_SubDW, ACol));
    if not Assigned(FieldClass) then Exit;
    HasComboBox :=  AnsiSameText(FieldClass.FieldCode, 'DW_TYPE') or AnsiSameText(FieldClass.FieldCode, 'USE_TYPE');
end;

如图:

 

 

 

 

 

 

 

 

 

 

 

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
delphi中and和or的特殊用法发布时间:2022-07-18
下一篇:
delphi调用java编写的webservice发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap