Firemonkey TListBox。OnClick-单击哪个项目?

显然 OnClick 事件在 ItemIndex 已更新。因此,您必须将处理延迟到 项目索引 有机会首先更新。你可以:

• 使用 TThread.ForceQueue() (10.2仅限东京+):

  procedure TForm1.ListBox1Click(Sender: TObject);
  begin
    TThread.ForceQueue(nil,
      procedure
      begin
        ShowMessage('ListBoxItem.itemindex = ' + ListBox1.ItemIndex.ToString);
      end
    );
  end;
  

• 使用 TThread.Queue() :

  procedure TForm1.ListBox1Click(Sender: TObject);
  begin
    TThread.CreateAnonymousThread(
      procedure
      begin
        TThread.Queue(nil,
          procedure
          begin
            ShowMessage('ListBoxItem.itemindex = ' + ListBox1.ItemIndex.ToString);
          end
        );
      end
    ).Start;
  end;
  

• 使用短计时器:

  procedure TForm1.ListBox1Click(Sender: TObject);
  begin
    Timer1.Enabled := True;
  end;
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
    Timer1.Enabled := False;
    ShowMessage('ListBoxItem.itemindex = ' + ListBox1.ItemIndex.ToString);
  end;