Delphi firemonkey listboxitem带附件 - 如何检测点击它？

Question

我有一个包含各种项目的列表框。有些附件（更多和细节）。

我找不到一种方法来检测点击配件的时间，而不是列表框项目本身。我需要区分listboxitem上的点击次数和其附件的点击次数，还是根本不支持？

Answer 1

您可以做的是在创建ITEM时创建一个过程并将其分配给（OnClick）事件：

var
BtnDelete : Tspeedbutton;      
begin
      BtnDelete := TSpeedbutton.Create(self);
      btndelete.Align := TAlignlayout(3);
      btndelete.OnClick := ProcDeleteRDV;
      Btndelete.StyleLookup := 'cleareditbutton';
      BtnDelete.Name :='RDV'+ vartostr(FieldValues['Num_rdv']);
      TlistBoxItem.AddObject(BtnDelete);
end;

并在指定的程序中检索按钮名称，在我的情况下，该按钮名称包含我想要删除数据时使用的主键：

var
 clickedbuttonname : string;
begin
 clickedbuttonname := TSpeedbutton(sender).Name;
 { Your other code here}
end;

希望这会对你有所帮助。