Firemonkey ListView 点击事件

发布时间：2020-12-15 04:37:10 所属栏目：大数据来源：网络整理

导读：Firemonkey ListView 的点击事件一直让人摸不着头绪（各平台触发规则不太相同），因为它提供了点击相关的事件就有如下： OnChange：改变项目触发。 OnClick：点击触发。 Windows 平台：按下立即触发，放开后接着触发 OnItemClickEx。 Android 平台：按下立

Firemonkey ListView 的点击事件一直让人摸不着头绪（各平台触发规则不太相同），因为它提供了点击相关的事件就有如下：

OnChange：改变项目触发。
OnClick：点击触发。
- Windows 平台：按下立即触发，放开后接着触发 OnItemClickEx。
- Android 平台：按下立即触发，不用放开接着OnItemClickEx（按钮 Button 触发顺序与 Widnows 相同，要放开才会触发OnItemClickEx）。
下列以这二个事件为例：
- OnItemClickEx：项目内单项触发。
- OnButtonClick：按钮事件。

下例将 Item.Apperance 设定为 Custom。

可获取每一个单项的事件触发：

TForm1.ListView1ItemClickEx( [Ref] LocalClickPos: TPointF; ItemObject TListItemText Label1.Text := + ItemIndex.ToString ItemObject TListItemImage Label1.Text := + ItemIndex.ToString ItemObject TListItemAccessory Label1.Text := + ItemIndex.ToStringprocedure TForm1.ListView1ButtonClick(const Sender: TObject;
const AItem: TListItem; const AObject: TListItemSimpleControl);
begin
if AObject is TListItemGlyphButton then Label1.Text := 'OnButtonClickGlyphButton' + AItem.Index.ToString else
if AObject is TListItemTextButton then Label1.Text := 'OnButtonClickTextButton' + AItem.Index.ToString;
end;

有一些问题存在：

点击 Accessory 后是触发 Text 而非 Accessory，这部份我有改动到源码，使它能正常辨别是点击到那一个（改动源码并不建议，有兴趣自行研究）。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!