Ninguém sabe isso ? List BOX
20/03/2003
0
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!
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
Curtir tópico
+ 0
Responder
Posts
20/03/2003
Sandrodantas
Tem mais uma coisa
E a medida que o cursor for navegando eu desejo que o item apareça em um edit
E a medida que o cursor for navegando eu desejo que o item apareça em um edit
Responder
20/03/2003
E_gama
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
