在 TListView 中使用按钮

Question

我在我的表单中创建了一个 TListView，将 ItemAppearance 更改为 DynamicAppearance。在结构上，我继续 ListView1> ItemAppearance> Item> Add New ...> 然后我选择了 TTextButtonObjectAppearance。

好的，现在我想知道如何在这个按钮中设置OnClick事件，因为当我双击'Code Tab'时没有打开，Object Inspector中的Event Tab没有选择.

Answer 1

将按钮的 AppearenceObjectName 设置为删除和编辑。

procedure TForm2.ListView1ButtonClick(const Sender: TObject;
  const AItem: TListItem; const AObject: TListItemSimpleControl);
begin
  if AObject.name = 'Delete' then
    showmessage('Delete')
  else if AObject.Name = 'Edit' then
    showmessage('Edit');
end;

Answer 2

填充 ListView

  with ListView1.Items.Add do
  begin
    Text := 'Item';
    Data['dateUpdate'] := '09.05.2017';
  end;

OnItemClickEx 事件

procedure TForm1.ListView1ItemClickEx(const Sender: TObject; ItemIndex: Integer; const LocalClickPos: TPointF;
  const ItemObject: TListItemDrawable);
begin
  if ItemObject.Name.Equals('dateUpdate') then
    ShowMessage('AppearenceObjectName = "dateUpdate"');
end;