delphi - Delphi：在移动应用程序的运行时创建一个 TListItemTextButton

Question

我有一个 ListView 并在运行时创建项目。在其中一个项目中，根据某些条件，我想插入一个只有按钮及其属性（如文本、宽度、颜色等）的项目。

我有这样的事情：

var MyListView: TListView;
    Item: TListViewItem;
    LinkButton: TlistItemTextButton;

...
Item := MyListView.Items.Add;
Item.Purpose := TListItemPurpose.None;
if Item.Objects.FindObject('MyButton') = nil then
begin
  LinkButton := TListItemTextButton.Create(Item);
  LinkButton.Text := 'MyText';           
  LinkButton.Width := 300;
  LinkButton.Name := 'MyButton';
  LinkButton.Visible := True;
  LinkButton.OnSelect := MyLinkClickProc;
  Item.Objects.Add(LinkButton);
end;
...

该应用程序在我的 iOS 设备上编译并运行，但未显示该按钮。如果我在设计时创建按钮Visibile := False并将Visible属性更改为True类似这样的东西，我也会遇到同样的问题。

Item.Objects.FindObjectT<TListItemText>('MyButton').Visible := True;

它不起作用。

知道问题可能出在哪里吗？

标签： delphifiremonkeydelphi-10.2-tokyo