List BOX

Delphi

20/03/2003

Olá tudo bem?

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

Aroldo Zanela

Aroldo Zanela

20/03/2003

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ListBox1.ItemIndex=-1 then ListBox1.ItemIndex := 0;
  ListBox1.ItemIndex := ListBox1.ItemIndex+1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.ItemIndex := ListBox1.ItemIndex-1;
end;



GOSTEI 0
POSTAR