Привязка в игре Конструктор

[s-andriano]

Лично я никогда не скачиваю архивы.
Если автору нужно - он задаст конкретные вопросы прямо на форуме.

Когда просите помощи, постарайтесь, чтобы оказывать Вам помощь было максимально комфортно. В частности, не требуйте, чтобы те, кто пытается Вам помочь, делали какие-либо дополнительные ненужные усилия.
Вы же ведете себя так, что помогать Вами совсем не хочется.

[ЕгорКр]

Извините, а что я сделал не так?
Попросил, объяснил.

[Serge_Bliznykov]

Егор, да всё так...

s-andriano выразил своё личное отношение. Он волен поступать так, как он считает нужным.
Он считает (возможно и справедливо), что Вам нужно было раскрыть проблему в теме более полно - выложить небольшой участок кода прямо на форум, привести скриншоты и т.д. и т.п. - чтобы Вам можно было помочь не скачивая архив и не заходя в Delphi.
Кстати, без архива с проектом не всегда можно разобраться в проблеме и помочь... )

[s-andriano]

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

Кстати, без архива с проектом не всегда можно разобраться в проблеме и помочь... )

По моему опыту это бывает в одном единственном случае: когда лучшим советом ТС было бы - почитать учебник или встроенную справку.
Если речь идет о разработке, выборе или анализе алгоритма для конкретной задачи, любые вопросы могут быть решены исключительно с использованием русского языка без применения кода.

И, Serge, какая мне польза от скачивания проекта, если у меня Delphi не установлена, а все, что нужно сделать - это исправить синтаксические ошибки? Прикажете мне их искать глазками вместо того, чтобы поручить это компилятору?

PS. Serge, поверьте, если человек не может внятно изложить свои мысли - то это не зависит от языка: русский, С, английский, Паскаль, Джава или китайский.
Значит, чтобы писать программы, которые работают, автору нужно прежде всего научиться внятно выражать свои мысли. И проще всего это делать (учиться) на примере русского.

[ЕгорКр]

Как сделать так, чтобы при приближении картинке1 к картинке2 они становились в нужную позицию?
Думаю это понять можно.
Да, и еще, даже если нету делфи, то можно запустить *.exe, и все сразу станет на свои места.

[ЕгорКр]

Актуально.

[Человек_Борща]

На картинках, уникально отобразите некоторые точки(места стыков). Работает как магнит: - это точка объекта к которому прилипаешь, + точка объекта который тянешь.

Если в радиусе всех точек с +, есть точки с -, то изображения прилипают друг к другу.

[alextrof94]

для каждой части на каждом уровне достаточно записать в файл уровня координаты каждой части под номерами, и

procedure pole.chast1MouseUp
if (fabs(file.chast1.x-pole.chast1.x)<10)and(fabs(file.chast1.y-pole.chast1.y)<10) then 
begin
 pole.chast1.x:=file.chast1.x;
 pole.chast1.y:=file.chast1.y;
end;

вот тебе, абстрактный более-менее, код отпускания части изображения, чтобы оно само подводилось в нужное место при разнице меньшей 10пикс.
fabs - модуль.

[ЕгорКр]

Благодарю, но попробую завтра, так как сегодня устал. Спасибо, отпишу как попробую.

[ЕгорКр]

Процедура передвижения объектов:

procedure TForm3.img4MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if button <> mbLeft then
    move:=false
  else
  begin
    move:=true;
    x0:=x;
    y0:=y;
  end;
end;

procedure TForm3.img4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if move then
  begin
    img4.Left:=img4.Left+x-x0;
    img4.Top:=img4.Top+y-y0;
  end;
end;

procedure TForm3.img4MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer); // Как я понял, вот сюда надо вставлять. Но что-то у меня не получается ничего.
begin
 move := false;
end;