[timeless]

Как управлять элементами листбокс с помощью кнопок расположенных на форме? Например передвинуть один или несколько выделенных элементов кнопками "вверх" или "вниз", переместить элементы сразу вверх или вниз списка или удалить из списка.

[Ozerich]

Код:

ListBox1.ItemIndex:=ListBox1.ItemIndex+1;

[Ferra]

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

Код:

ListBox1.ItemIndex:=ListBox1.ItemIndex+1;

это сдвиг фокуса, но не Item-a

[Ozerich]

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

это сдвиг фокуса, но не Item-a

Извиняюсь!
Вопрос не внимательно прочитал

[timeless]

Спасибо! Все работает.
Как быть, если надо передвинуть несколько строк сразу?

[timeless]

Еще вопросик. Как переименовать файл на диске, используя значение из элемента листбокса, в котором содержится полный адрес включая расширение.

[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;