Ninguém sabe isso ? List BOX

Delphi

20/03/2003

Olá tudo bem?

Desculpem por ter postado a mesma mensagem duas vez, entretanto, realmente estou precisando dessa informação.

Como faço para navegar entre os items de um list box, por exemplo?

Tenho dois botões um para avançar e outro para retornar entre os items do list box.

Não quero fazer um looping, quero ir um a um

Obrigado!


Sandrodantas

Sandrodantas

Curtidas 0

Respostas

Sandrodantas

Sandrodantas

20/03/2003

Tem mais uma coisa

E a medida que o cursor for navegando eu desejo que o item apareça em um edit


GOSTEI 0
E_gama

E_gama

20/03/2003


procedure TForm1.BtnAvancaClick(Sender: TObject);
begin
  if ListBox1.ItemIndex < (ListBox1.Items.Count -1) then
     begin
       ListBox1.ItemIndex :=  ListBox1.ItemIndex + 1;
       Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
     end;
end;

procedure TForm1.BtnVoltaClick(Sender: TObject);
begin
  if ListBox1.ItemIndex > 0 then
     begin
       ListBox1.ItemIndex :=  ListBox1.ItemIndex - 1;
       Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
     end;
end;



GOSTEI 0
Sandrodantas

Sandrodantas

20/03/2003

Muito obrigado e_gama

Valeu mesmo!


GOSTEI 0
POSTAR