Iniciante com duvida em TListBox

Question

Eu queria saber como fa�o para selecionar um item na listbox sem usar o mouse.
Por Exemplo. Um usuario Digita o Nome que quer Procurar na ListBox e Se o Programa encontrar esse nome ele Seleciona o nome na listBox e Executa o TListBox.OnCLick.

Gratos pela Aten��o!

Thiago Bispo

Beppe · Answer

Esta � uma busca exata n�o sensitiva ao caso.

procedure TForm1.Button1Click(Sender: TObject);
var
  Indice: Integer;
begin
  Indice := ListBox1.Items.IndexOf(Edit1.Text);
  if Indice >= 0 then
  begin
    // achou
    ListBox1.ItemIndex := Indice;
    ListBox1Click(Sender);
  end;
end;

Acho que seria melhor remover o seu c�digo de dentro de ListBox1Click para uma nova rotina e cham�-la diretamente, deste maneira eu considero mais �limpo�. Mas funciona do jeito que est�.

F�rum Iniciante com duvida em TListBox #265522