Listbox

[sxcine]

день добрый..
как сделать так, что бы при нажатии на кнопку
выделенная строка в листбоксе прокручивалась на одну ниже ?

[DIgorevich]

Listbox1.ItemIndex:=Listbox1.ItemIndex+1

[igh0st]

if (Listbox1.ItemIndex <> (Listbox1.Count - 1)) then
    Inc(Listbox1.ItemIndex);

[Grag]

Сообщение от sxcine

как сделать так, что бы при нажатии на кнопку
выделенная строка в листбоксе прокручивалась на одну ниже ?

В одной из своих программ я делаю ЭТО так:

procedure TMainFrm.BtnMoveDNClick(Sender: TObject);
Var
  LinePos:word;

begin
  if (ListBoxGpCompSel.SelCount<>1) or
          (ListBoxGpCompSel.ItemIndex=ListBoxGpCompSel.Items.Count-1) then Exit;
  LinePos:=ListBoxGpCompSel.ItemIndex+1;
  ListBoxGpCompSel.Items.Move(ListBoxGpCompSel.ItemIndex,LinePos);
  ListBoxGpCompSel.Selected[LinePos]:=true
end;