我正在使用这个自定义的Listview应用程序。我想在每个项目的标题中添加2个按钮。显然这是不可能的?自定义标题只给出一个TextButton
,附件按钮由于某种原因无法点击
当我按下附件按钮(在项目标题中)时,下面的事件过程不会被触发。但是,它适用于TextButton
procedure TForm1.ListView1ItemClickEx(const Sender: TObject;
ItemIndex: Integer; const LocalClickPos: TPointF;
const ItemObject: TListItemDrawable);
begin
ShowMessage(ItemObject.Name);
end;
问题是:触发ShowMessage()
如果一个附件按钮在项目标题被按下。或者,如何在Item Header中添加2个textbutton。
注意:列表视图项目ItemAppearance
是Dynamic Appearance
和标题的外观是Custom
。确保附件按钮可见性设置为True。
我推荐使用TListBox,试试这个视频TListBox教程