Не могу прикрепить обьект к обьекту

[260526052605]

когда я писал код я имел ввиду

Korabl,Snaryad: TImage

[NiCola999]

наверняка у корабля есть структура, в которой есть координаты, которые определяются координатами абстрактного прямоугольника картинки. Так в чем проблема? Начальные координаты пули будут:
bullet_x = ship_x + dx;
bullet_y = ship_x + dy;

где dx, dy - смещение от центра корабля в сторону пушки откуда должен лететь снаряд

[somebody94]

function AngleTo(x,y,x1,y1: Integer): Real;
begin
If (x1<x) and (y1<y) then result:=270*pi/180-arcsin(abs(y-y1)/sqrt(sqr(x-x1)+sqr(y-y1)));
If (x1<x) and (y1>y) then result:=270*pi/180+arcsin(abs(y-y1)/sqrt(sqr(x-x1)+sqr(y-y1)));
If (x1>x) and (y1<y) then result:=90*pi/180+arcsin(abs(y-y1)/sqrt(sqr(x-x1)+sqr(y-y1)));
If (x1>x) and (y1>y) then result:=90*pi/180-arcsin(abs(y-y1)/sqrt(sqr(x-x1)+sqr(y-y1)));

If (x1=x) and (y1<y) then result:=pi; // 180
If (x1=x) and (y1>y) then result:=0; // 0
If (x1<x) and (y1=y) then result:=1.5*pi; // 270
If (x1>x) and (y1=y) then result:=0.5*pi; // 90
end;

што ето значит по подробнее можна?и ешё пока не долетели до цели... а когда он приблизилься к цели... што случается тогда?)

[somebody94]

Никола можеш обьснить што ты хочеш сказать?

[JTG]

function AngleTo(x,y,x1,y1: Integer): Real;
begin
If (x1<x) and (y1<y) then result:=270*pi/180-arcsin(abs(y-y1)/sqrt(sqr(x-x1)+sqr(y-y1)));
If (x1<x) and (y1>y) then result:=270*pi/180+arcsin(abs(y-y1)/sqrt(sqr(x-x1)+sqr(y-y1)));
If (x1>x) and (y1<y) then result:=90*pi/180+arcsin(abs(y-y1)/sqrt(sqr(x-x1)+sqr(y-y1)));
If (x1>x) and (y1>y) then result:=90*pi/180-arcsin(abs(y-y1)/sqrt(sqr(x-x1)+sqr(y-y1)));

If (x1=x) and (y1<y) then result:=pi; // 180
If (x1=x) and (y1>y) then result:=0; // 0
If (x1<x) and (y1=y) then result:=1.5*pi; // 270
If (x1>x) and (y1=y) then result:=0.5*pi; // 90
end;

Какой кошмар. Никогда так больше не делай

function Arctan2(const dx, dy: extended): extended;
asm
  fld   dy
  fld   dx
  fptan
  fwait
end;

angle := Arctan2( -(x1-x), y1-y) + pi; //0 вверху, отсчёт по часовой стрелке