[timeless]

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

[Ozerich]

Код:

1	ListBox1.ItemIndex:=ListBox1.ItemIndex+1;

[Ferra]

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

Код:

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

в начало

Код:

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

удалить

Код:

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

вверх

Код:

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

вниз

Код:

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

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

Код:

1 2 3 4 5 6 7 8 9 10

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;

[Ferra]

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

Код:

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

[Ozerich]

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

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

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

[timeless]

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

[timeless]

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

[lmikle]

Вообще, переименовать файл можно командой Rename. Одно из имен у тебя уже готовое лежит в листбоксе. Второе надо сконструировать.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var   OldName, NewName : String; begin   OldName := ListBox1.Items[ListBox1.ItemIndex]; // Get current name   If InputQuery('Rename','New name:',NewName) Then // Ask user for new name     Begin       NewName := ExtractFilePath(OldName) + // path                         ChangeFileExt(NewName,ExtractFileExt(OldName)); // New file name and save orig. extention                    If Rename(OldName,NewName)         Then ListBox1.Items[ListBox1.ItemIndex] := NewName // Update current name         Else ShowMessage('Error renaming file.');     End; end;

Сорри, коменты по английски.
Идея такая. В листбоксе лежит полное имя файла (с путем).
Переименовываем выбранный файл.
Спрашиваем новое имя у пользователя.
Если получилось переименовать, то обновляем инфу в листбоксе, иначе - сообщение об ошибке.

[Ferra]

что значит несколько строк? несколько выделенных? начиная с какой-то позиции или что?

[timeless]

lmikle,
Спасибо, сделал по вашему примеру.

Ferra,
Угу, нескольких выделенных. Пользователь выделяет несколько строк, и, при нажатии кнопки "вверх", они все перемещаются вверх на одну позицию. Аналогично с кнопками "в начало" и "удалить" и т.д. Подозреваю будут проблемы, если строки выделены через одну. Алгоритм в голове есть, но он слишком громоздкий, и я не знаю как обработать множественное выделение.

[lmikle]

Если передвижка идет на 1 позицию, то особых проблем нет.

Если двигаем вверх, то циклом от 0 до Count-1 двигаем поочереди все строки на единичку вверх (используя метод Exchange и контролируя, что строка и так не является первой).

Если двигаем вниз, то циклом от Count-1 до 0 двигаем поочереди все строки на единичку вниз (используя метод Exchange и контролируя, что строка и так не является последней).

Пример нужен или сам справишся?

[timeless]

Пожалуй, нужен пример.

[lmikle]

О, господи!!!

Код:

1 2 3 4 5 6 7 8 9

procedure MoveItemsUp(AListBox : TListBox); var   I : Integer; begin   If AListBox.Items.Count > 1 Then     For I := 1 To AListBox.Items.Count-1 Do       If Not AListBox.Selected[I-1] Then         AListBox.Exchange(I,I-1); end;

Вниз аналогично, только цикл в обратном напрмвлении и проверяешь I+1.
Вроде должно работать.

[timeless]

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

Вроде должно работать.

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

[timeless]

И еще вопрос, если я не совсем надоел . Как получить адрес папки при перетаскивании её из проводника в листбокс?