TListBox项目AddObject Firemonkey 10.2

Question

我正在尝试使用formShow add

ListBox1.Items.AddObject('TEST 1', TObject(1)) ;
ListBox1.Items.AddObject('TEST 2', TObject(2)) ;

，但应用程序自动关闭（崩溃）。

这个例子很好用

ListBox1.Items.Add('TEST 1');
ListBox1.Items.Add('TEST 2');

任何解决方案如何使用Items.AddObject？

Answer 1

对于FMX TListBox，建议您改用Tag属性。

aItem: TListBoxItem;
begin
   aItem := TListBoxItem.Create(Self);
   aItem.Text := 'TEST 1';
   aItem.Tag := 1;
   aItem.Parent := ListBox1;

   aItem := TListBoxItem.Create(Self);
   aItem.Text := 'TEST 2';
   aItem.Tag := 2;
   aItem.Parent := ListBox1;
end

这只是一个伪代码，但是您知道了。它还使您能够从TListBoxItem派生一个类，并使它做一些普通的TListBoxItem不会做的事情，或者为不同的项目提供不同的类。