Iniciante com duvida em TListBox

Delphi

16/01/2005

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


Tbispo

Tbispo

Curtidas 0

Respostas

Beppe

Beppe

16/01/2005

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á.


GOSTEI 0
POSTAR