FireMonkey ListView 设计期添加按钮及其 OnClick 事件

FireMonkey 的 ListView 在设计期可以定制一个 Item 上有多个 TEXT，IMAGE 和 Button。

如何做，本博客前面有文章讲到。请见这里：FireMonkey ListView 绑定数据显示多个图片_pcplayer的博客-优快云博客

那么，如果添加的是一个按钮，如何知道用户点了这个按钮？在设计期添加的按钮，其属性面板上，只有 Property 而没有 Event，没有 OnClick 可以选择。

看了半天 ListView 的源代码没找到办法。上网一搜，有了办法：

listview - Working with buttons in a TListView - Stack Overflow

我自己的测试代码

在设计期，给一个 Item 添加两个按钮。其默认的名字分别是：TextButton2 和 TextButton3。

在 ListView1 的属性面板上，切换到 Events 事件页，找到 OnButtonClick，双击，IDE 生成代码框架。代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  AItem: TListViewItem;
begin
  AItem := ListView1.Items.A