使用TListView

Question

我在我的表单中创建了一个TListView，将 ItemAppearance 更改为 DynamicAppearance 。在结构上，我继续使用ListView1＆gt; ItemAppearance＆GT;项＆GT;添加新...＆gt;我选择了TTextButtonObjectAppearance。

好的，现在我想知道如何在此按钮中设置OnClick事件，因为当我双击“代码选项卡”时，不打开，Object Inspector中的Event选项卡无法选择。

Answer 1

填写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;