//Desce o item selecionado
procedure TForm1.btn1Click(Sender: TObject);
var
NovoIndex : Integer;
begin
if not (lbx1.ItemIndex = lbx1.Items.Count-1) then
begin
NovoIndex := lbx1.ItemIndex + 1;
lbx1.Items.Move(lbx1.ItemIndex, NovoIndex);
lbx1.ItemIndex := NovoIndex;
lbx1.SetFocus;
end;
end;
//Sobe o item selecionado
procedure TForm1.btn2Click(Sender: TObject);
var
NovoIndex : Integer;
begin
if not (lbx1.ItemIndex - 1 < 0) then
begin
NovoIndex := lbx1.ItemIndex - 1;
lbx1.Items.Move(lbx1.ItemIndex, NovoIndex);
lbx1.ItemIndex := NovoIndex;
lbx1.SetFocus;
end;
end;
--
Boa Leitura,
Adriano Santos
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br
dhsb respondeu:
>
> Pessoal,
>
> Boa tarde...
>
> Tenho um formulario com um listbox e dois botões um com seta para cima
> e outra com seta para baixo (ordenação). Meu problema e que nao estou
> conseguindo ordenar os itens do meu list box.
>
> Exemplo quando seleciono o primeiro e clico no botao para baixo queria
> que ele ficasse no segundo registro e assim sucessivamente..
>
> Alguem ja passou por algo semelhante... Como eu faria?
>
> Valeu
>
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com
> Version: 8.0.138 / Virus Database: 270.5.6/1577 - Release Date: 28/7/2008
> 06:55
>
