У меня есть собственный компонент TConEquipment наследник от TGraphicControl, который может свободно перемещаться на форме. <B>Проблема в следующем:</B>
На форме есть два TConEquipment: ConEquipment1 и ConEquipment2. ConEquipment1 находится в состоянии покоя, а ConEquipment2 мы перемещаем по форме. Когда конец (в виде кружка) ConEquipment2 находит на конец ConEquipment1, то он должен прицепить ConEquipment1 и уже двигаться как единое целое. Как это сделать?

P.S. Исходники прикрепляю.

Присоединённый файл ( Кол-во скачиваний: 6 )
 FromLineTo.rar 9,40 Kb

В MouseUp нужно проверить, есть ли поблизости какие-либо концы других элементов. Если есть, то занести эти элементы в "список прицепок"... Упрощенно как-то так:

Код

TConEquipment = class(TGraphicControl)   private     FConnections : array of TConEquipment; // список прицепленных элементов ... procedure TConEquipment.MouseUp(Button: TMouseButton; Shift: TShiftState;  X, Y: Integer); var   pt : TPoint;   i : integer;   c : TConEquipment;   begin   pt := ClientToParent(Point(X, Y)); // просматриваем все контролы   for i := 0 to Parent.ControlCount-1 do     if Parent.Controls[i] is TConEquipment then     begin       c := TConEquipment(Parent.Controls[i]);       if c = Self then Continue; // проверка на то, соприкасается ли коннек, за который таскали, с концами элемента c       if <проверка соприкосновения pt с концами элемента c> then       begin // теперь надо проверить, прицеплен ли уже этот элемент ?         found := False;         for j := 0 to High(FConnections) do           if FConnections[j] = c then            begin             found := True;             Break;           end;         if found then Continue; // заносим в список прицепок         SetLength (FConnections, Length(FConnections)+1);         FConnections[High(FConnections)] := c; // возможно нужно будет занести себя в список прицепок элемента c //        SetLength (c.FConnections, Length(c.FConnections)+1); //        c.FConnections[High(c.FConnections)] := Self;                end;     end; end;

Теперь в DoMouseMove нужно сдвигать/изменять размеры элементов, занесенных в FConnections...