Question

我只能通过点击组件找到如何创建ListBoxItem - ＆gt; 项目编辑。

我们如何使用ListBoxItem以编程方式创建Firemonkey？

Answer 1

只需创建列表框项，然后将其添加到列表框中：

var
  ListBoxItem: TListBoxItem;
begin
  ListBoxItem := TListBoxItem.Create(ListBox1);
  ListBoxItem.Text := 'foo';
  // set other properties of the list box item at this point
  ListBox1.AddObject(ListBoxItem);
end;

Answer 2

假设ListBoxItem是名为TListBox的现有ListBox1组件的项目，则可以像这样添加项目：

ListBox1.Items.Add('an item name');

替代方案：

var
  id: Integer;

  . . .

  ListBox1.Items.AddObject('an item name', TObject(id));

修改请注意，仅当基础列表未排序时，才必须认为此方法有效。

Answer 3

您也可以使用：

var
aItem: TListViewItem;
begin

 for i := 0 to 10 do
 begin
  aItem := ListView1.Items.Add;
  aItem.Text := 'Item Text';

 // you can set properties in here..

 end;

end;

如何以编程方式添加ListBoxItem？

3 个答案: