[lmikle]

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

Работает не так, как надо. Просто ставит первый элемент последним, не зависимо от того какие строки выделены. Я хочу получить эффект как в программе "Universal share downloader" при выборе команды "передвинуть выше".

Ну да, сорри, забыл одну проверку.

Код:

procedure MoveItemsUp(AListBox : TListBox);
var
  I : Integer;
begin
  If AListBox.Items.Count > 1 Then
    For I := 1 To AListBox.Items.Count-1 Do
      If AListBox.Selected[i] Then // Вот эту забыл!!!
        If Not AListBox.Selected[I-1] Then
          AListBox.Exchange(I,I-1);
end;