我有一个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;
它不起作用。
知道可能导致问题的地方吗?