[Ferra]

Переместить выделенный в конец

Код:

 if ListBox1.ItemIndex>0 then ListBox1.Items.Move(ListBox1.ItemIndex, ListBox1.Count-1);

в начало

Код:

 if ListBox1.ItemIndex>0 then ListBox1.Items.Move(ListBox1.ItemIndex, 0);

удалить

Код:

 if ListBox1.ItemIndex>0 then ListBox1.Items.Delete(ListBox1.ItemIndex);

вверх

Код:

if ListBox1.ItemIndex>0 then ListBox1.Items.Move(ListBox1.ItemIndex, ListBox1.ItemIndex-1);

вниз

Код:

if ListBox1.ItemIndex>0 then ListBox1.Items.Move(ListBox1.ItemIndex, ListBox1.ItemIndex+1);

это если фокус сохранять нужно (сдвиг вниз)

Код:

var
 i:Word;
begin
 if ListBox1.ItemIndex>0 then
   begin
   i:=ListBox1.ItemIndex;
   ListBox1.Items.Move(i, i-1);
   ListBox1.Selected[i-1]:=true;
   end;
end;