Перетаскивание нескольких объектов на форме

[Montysson]

Доброго времени суток.

Не могу реализовать множественное перетаскивание, к примеру у меня есть объект, в виде записи:

TObj = packed record
  Top, Left: Integer;
  Width, Height: Integer;
  IsSelect: Boolean;
end;

И есть массив таких объектов:

Objs: array of TObj;

Сейчас я перетаскиваю такие объекты следующим образом:

 
if (ObjNum >= 0) and IsDown then
  with Objs[ObjNum] do
  begin
    Left := Round((X - Width div 2) / Scale);
    Top := Round((Y - Height div 2) / Scale);
  end;

И собственно все работает как нужно, но если выбраны несколько объектов и я пытаюсь их перетащить, то ничего не получается (В этом примере без масштабирования и без середины объекта, для наглядности):

var
  I: Integer;
begin
  for I := 0 to High(Objs) do
    if Objs[I].IsSelect then
      with Objs[I] do
      begin
        Left :=  Left + X - ClickPos.X; // Round((AX - CurrX) / Scale);
        Top :=  Top + Y - ClickPos.Y; // Round((AY - CurrY) / Scale);
      end;
end;

Наверно кто-нибудь уже реализовывал подобное, подскажите пожалуйста.

[samouelson]

Да, у меня такая же проблема. Каким образом можно реализовать данную задачу?

[Montysson]

Получилось кое-что сделать, переделал структуру данных объекта, добавил два поля:

TObj = packed record
  Top, Left: Integer;
  OldTop, OldLeft: Integer;
  Width, Height: Integer;
  IsSelect: Boolean;
end;

И на событие OnMouseDown добавил следующие строки:

Objs[ObjNum].OldLeft := X;
Objs[ObjNum].OldTop := Y;

Т.е. при нажатии на объект запоминаются его координаты до перетаскивания.

А в событии OnMouseMove написал:

var
  I: Integer;
begin
  for I := 0 to High(Objs) do
    if Objs[I].IsSelect then
      with Objs[I] do
      begin
        Left :=  OldLeft + X - ClickPos.X;
        Top :=  OldTop + Y - ClickPos.Y;
      end;
end;

Теперь при перетаскивании одного объекта все работает как надо, а при перетаскивании нескольких не работает. Просто при выборе нескольких объектов они перемещаются в точку клика и перемещаются все вместе в одной точке, не сохраняя при этом расстояний между объектами.

Подскажите как быть.

[phomm]

Взять точку начала таскания, взять точку конца таскания (или текущую точку таскания) по ним высчитывать дельта Х и У - и к координатам компонентов добавлять именно дельты - тогда и расстояния будут сохраняться, да и всякие олд-ы не потребуются