перетаскивание элементов между тремя ListBox

[ondar]

Здравствуйте!

Помогите пожалуйста с реализацией перетаскивания элементов между тремя ListBox.

Между двумя ListBox перетаскивание элементов получается.
А при добавлении 3-го ListBox, перетаскивание с 3-го на 1-й или 2-ой не происходит либо выдает ошибку.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    Button1.Caption:='Close';

    ListBox1.DragMode:=dmAutomatic;
    ListBox2.DragMode:=dmAutomatic;

    ListBox1.Items[0]:='1';
    ListBox1.Items[1]:='2';
    ListBox1.Items[2]:='3';

end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
    Accept := Source is TListBox;
end;

procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
    Accept := Source is TListBox;
end;

procedure TForm1.ListBox3DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
    Accept := Source is TListBox;
end;


procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Source is TListBox) then
  ListBox1.Items.Insert(TListBox(Source).ItemAtPos(Point(X,Y), true), TListBox(Source).Items[TListBox(Source).ItemIndex]);
  TListBox(Source).Items.Delete(TListBox(Source).ItemIndex);
end;

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Source is TListBox) then
  ListBox2.Items.Insert(TListBox(Source).ItemAtPos(Point(X,Y), true), TListBox(Source).Items[TListBox(Source).ItemIndex]);
  TListBox(Source).Items.Delete(TListBox(Source).ItemIndex);
end;

procedure TForm1.ListBox3DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Source is TListBox) then
  ListBox3.Items.Insert(TListBox(Source).ItemAtPos(Point(X,Y), true), TListBox(Source).Items[TListBox(Source).ItemIndex]);
  TListBox(Source).Items.Delete(TListBox(Source).ItemIndex);
end;

[ondar]

Разобрался с перетаскиванием.
Только вот ошибка осталась -> raised exception class EOutResources with message 'Unable to insert a line'.

[Sciv]

У Вас перетаскивание происходит из одного Листа в другой без смены индекса элемента в списке? То бишь был в первом листе вторым - во втором тоже должен стоять вторым?

Или должно свободное перемещение происходить?

Если у Вас список-получатель пустой изначально - то вот этот код:

  ListBox1.Items.Insert(TListBox(Source).ItemAtPos(Point(X,Y), true), TListBox(Source).Items[TListBox(Source).ItemIndex]);

естественно вызовет ошибку: не может быть второго номера там, где и первого то не существует. А вот при перемещении по порядку (с нулевого элемента и далее) прога будет работать корректно.

[Sciv]

Для свободного перемещения решение примерно такое:

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Source is TListBox) then
    if ListBox1.Items.Count-1>TListBox(Source).ItemIndex then
      ListBox1.Items.Insert(TListBox(Source).ItemAtPos(Point(X,Y), true), TListBox(Source).Items[TListBox(Source).ItemIndex])
    else
      ListBox1.Items.Insert(ListBox1.Items.Count-1, TListBox(Source).Items[TListBox(Source).ItemIndex]);
  TListBox(Source).Items.Delete(TListBox(Source).ItemIndex);
end;

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Source is TListBox) then
    if ListBox2.Items.Count-1>TListBox(Source).ItemIndex then
      ListBox2.Items.Insert(TListBox(Source).ItemAtPos(Point(X,Y), true), TListBox(Source).Items[TListBox(Source).ItemIndex])
    else
      ListBox2.Items.Insert(ListBox2.Items.Count-1, TListBox(Source).Items[TListBox(Source).ItemIndex]);
  TListBox(Source).Items.Delete(TListBox(Source).ItemIndex);
end;

procedure TForm1.ListBox3DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Source is TListBox) then
    if ListBox3.Items.Count-1>TListBox(Source).ItemIndex then
      ListBox3.Items.Insert(TListBox(Source).ItemAtPos(Point(X,Y), true), TListBox(Source).Items[TListBox(Source).ItemIndex])
    else
      ListBox3.Items.Insert(ListBox3.Items.Count-1, TListBox(Source).Items[TListBox(Source).ItemIndex]);
  TListBox(Source).Items.Delete(TListBox(Source).ItemIndex);
end;

Хотя и этот код будет выдавать ошибку, если случайно щелкните и потащите не элемент списка, а пустое белое поле... Потому что ItemAtPos(Point(X,Y), true) будет выдавать "ничто" - тот же индекс (-1)