Перетаскивание внутри листбокса

[garik]

Всем привет!!!
У меня вопрос не из простых
Имеется листбокс, в котором несколько строк
Мы щёлкаем по нужной строке и начинаем перетаскивать строку наверх или вниз (путём поднимания или опускания мыши) до того момента, пока мы неотпустим кнопку мыши. При этом строка меняется местами со строками выше или ниже её.
Как это сделать
Заранее спасибо

[mihali4]

Да ничего тут сложного. Посмотрите и уже никогда такой вопрос задавать не будете.
Вот вам вариант переноса строки в другое место:
1. Установите ListBox1.DragMode равным dmAutomatic (в инспекторе объектов).
2. Определяем две процедурки:

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
if (Source=ListBox1) then
Accept:=True else
Accept:=False;
end;

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var tmp: string;
    mypoint: TPoint;
begin
mypoint.X:=X;
mypoint.Y:=Y;
tmp:=ListBox1.Items[ListBox1.ItemIndex];
ListBox1.Items.Delete(ListBox1.ItemIndex);
ListBox1.Items.Insert(ListBox1.ItemAtPos(mypoint,True),tmp);
end;

Вот и все

Мы говорим как кинуть на листбокс файлы, а как из листбокса файлы выкинуть на другую форму с листбоксом-приёмником

Во-первых, о файлах речи не шло.
Во-вторых - не пора ли и самому чуть-чуть мозгами пошевелить?
С файлами тоже ничуть не сложнее... Технологию я вам описал.

[garik]

Спасибо большое!
Но возникает ещё один вопрос
Мы говорим как кинуть на листбокс файлы, а как из листбокса файлы выкинуть на другую форму с листбоксом-приёмником
Заранее благодарен