在安卓下使用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修改代码的所在行,其他版本行数不同。