delphi D10 TListView使用复选框的BUG修改

在安卓下使用TListView时,需要使用到复选框,同时系统定义的几种类型如:ListItemShowCheck、ImageListItemShowCheck等都不能满足功能的需要,所以需要使用自定义显示内容,在定义好后,发现复选框不能正确使用,如下图设置:“ClickOnSelect”…(过程与原因不详说了,没时间,今天直接说结果)

在这里插入图片描述
结果发现代码(FMX.ListView.Types文件: TListItemGlyphButton类):

procedure TListItemGlyphButton.DoClick;
begin
  inherited;  
  if not FClickOnSelect then
    FCallback(nil, Self, TListItemCallbackOp.Click);
end;

inherited; 继承交类的过程,而父类中的代码是FCallback(nil, Self, TListItemCallbackOp.Click);,也就是说,当TListItemGlyphButton.DoClick执行时,如果ClickOnSelect设置为False,则ListView1ButtonClick会执行两次。因些将这里代码做了修改,注释inherited; 。再测试,我自己程序运行正常,因未做更深入测试,目前暂不清楚是否会对其他处理过程具有影响。
经查:版本10.1到10.3.2都有这情况。
修改内容如下:

procedure TListItemGlyphButton.DoClick;
begin
//  inherited;    {BUG 不应该继承父类的过程   谭钦修改 2020-01-05}
  if not FClickOnSelect then
    FCallback(nil, Self, TListItemCallbackOp.Click);
end;

10.3.2修改代码的所在行,其他版本行数不同。
10.3.2修改代码的所在行,其他版本行数不同

  • 0
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi 中,您可以使用 TListView 和 TADOQuery 组件来实现数据库查询结果的显示。下面是一个示例的方法和代码: 1. 在窗体上放置 TListView 和 TADOQuery 组件,并设置相关属性。 2. 在窗体的 OnCreate 事件中,创建并打开 ADOQuery 组件,并执行查询语句。 ```delphi procedure TForm1.FormCreate(Sender: TObject); begin ADOQuery1.Connection := ADOConnection1; // 设置 ADOQuery 的连接 ADOQuery1.SQL.Text := 'SELECT * FROM YourTable'; // 设置查询语句 ADOQuery1.Open; // 执行查询 end; ``` 3. 在窗体的 OnShow 事件中,将查询结果显示在 ListView 中。 ```delphi procedure TForm1.FormShow(Sender: TObject); var ListItem: TListItem; begin ListView1.Items.Clear; // 清空 ListView 中的项 // 遍历查询结果集,将每条记录显示在 ListView 中 ADOQuery1.First; while not ADOQuery1.Eof do begin ListItem := ListView1.Items.Add; ListItem.Caption := ADOQuery1.FieldByName('Field1').AsString; // 第一列数据 ListItem.SubItems.Add(ADOQuery1.FieldByName('Field2').AsString); // 第二列数据 ADOQuery1.Next; end; end; ``` 在这个例子中,我们使用 TListView 的 Items 属性来添加每个查询结果的行,并使用 Caption 和 SubItems 属性来设置每列的数据。可以根据需要添加更多的列和数据。 请注意,上述示例假设您已经在窗体上放置了 TListView(名为 ListView1)、TADOQuery(名为 ADOQuery1)和 TADOConnection(名为 ADOConnection1)组件,并已正确配置 ADOConnection 连接到您的数据库。 希望以上代码对您有所帮助。如果您有任何进一步的问题,请随时提问。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值