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

本文主要是介绍delphi D10 TListView使用复选框的BUG修改，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

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

结果发现代码(FMX.ListView.Types文件： TListItemGlyphButton类)：

procedure TListItemGlyphButton.DoClick;
begininherited;  if not FClickOnSelect thenFCallback(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 thenFCallback(nil, Self, TListItemCallbackOp.Click);
end;

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

这篇关于delphi D10 TListView使用复选框的BUG修改的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---