FireMonkey TListBox项索引获取及添加项后ItemIndex异常问题

我来帮你搞定FireMonkey TListBox这两个问题，咱们分两部分详细说明：

一、查找ListBox中某一项的索引 #

根据你的项类型不同，有两种常用的查找方式：

1. 查找普通字符串项的索引 #

如果你的ListBox里是纯文本项，直接用Items.IndexOf()方法就能快速找到索引，示例代码：

var
  TargetText: string;
  FoundIndex: Integer;
begin
  TargetText := '你要查找的文本内容';
  FoundIndex := ListBox1.Items.IndexOf(TargetText);
  // 找到的话FoundIndex >=0，没找到则为-1
end;

2. 查找绑定自定义对象的项的索引 #

如果你的ListBox使用TListBoxItem并通过Item.Data存储了自定义对象，就需要遍历所有项来匹配对象实例：

type
  TYourCustomClass = class
    // 你的自定义类定义
  end;

var
  i: Integer;
  TargetObj: TYourCustomClass;
  FoundIndex: Integer;
begin
  TargetObj := // 你要匹配的自定义对象实例;
  FoundIndex := -1;
  for i := 0 to ListBox1.Items.Count - 1 do
  begin
    if ListBox1.ListItems[i].Data = TargetObj then
    begin
      FoundIndex := i;
      Break;
    end;
  end;
end;

二、解决添加项后旧高亮残留的问题 #

你已经把MultiSelect设为False，理论上设置ItemIndex应该自动取消之前的选中状态，但FireMonkey偶尔会因为控件刷新时机或焦点问题出现这个小异常。试试下面的解决方案：

方案1：设置索引后强制刷新并聚焦控件 #

添加新项后，先获取新项的索引，然后先清空选中状态，再设置ItemIndex，最后强制刷新并让控件获得焦点：

var
  NewItem: TListBoxItem;
  NewIndex: Integer;
begin
  // 创建并添加新项
  NewItem := TListBoxItem.Create(ListBox1);
  try
    NewItem.Text := '新添加的列表项';
    ListBox1.AddObject(NewItem);
    // 刚添加的项肯定是最后一项，直接用Count-1获取索引更高效
    NewIndex := ListBox1.Items.Count - 1;
    
    // 先清空所有选中状态（保险操作）
    ListBox1.ClearSelection;
    // 设置新项为选中索引
    ListBox1.ItemIndex := NewIndex;
    // 强制控件刷新UI状态
    ListBox1.Refresh;
    // 让ListBox获得焦点，确保高亮正确显示
    ListBox1.SetFocus;
  except
    NewItem.Free;
    raise;
  end;
end;

方案2：手动设置Selected属性 #

如果方案1无效，可以直接遍历所有项，只把新项设为选中状态：

var
  i: Integer;
  NewIndex: Integer;
begin
  NewIndex := ListBox1.Items.Count - 1; // 假设是刚添加的最后一项
  // 遍历所有项，仅标记目标项为选中
  for i := 0 to ListBox1.Items.Count - 1 do
  begin
    ListBox1.ListItems[i].Selected := (i = NewIndex);
  end;
  // 同步设置ItemIndex
  ListBox1.ItemIndex := NewIndex;
  ListBox1.SetFocus;
end;

另外要注意：如果是在非UI线程中操作ListBox，必须用TThread.Synchronize或TThread.Queue来执行UI操作，否则控件状态会出现异常。

内容的提问来源于stack exchange，提问作者user2383818