как рассчитать вектор движения.

[Dvoishnik]

Сообщение от Аватар

x1,y1 - координаты нач.точки (твой X,Y)
x2,y2 - координаты кон.точки (твой X1,Y1)
Выражай y через x, меняющийся от x1 до x2 (от X до X1)
у=y1+(x-x1)*(y2-y1)/(x2-x1)Будут большие проблемы при программировании

у же есть проблемы как видите.

так будет работать?

x2:=300;
y2:=207;
x:=23;
y:=30;
for x1:=24 to x2-1 do
for y1:=31 to y2-1 do
if (x2-x1)<>0 and (y2-y1)<>0 then;
if (x-x1)/(x2-x1)=(y-y1)/(y2-y1) then 
Begin
str1:=st1r+IntToStr(x1); //координаты лежащие по оси х для данного отрезка
str2:=st2r+IntToStr(y1); //координаты лежащие по оси у для данного отрезка
end;

[Аватар]

Не будет

  x1:=23;
  y1:=30;
  x2:=300;
  y2:=207;
  x=x1;
  Delta:=1; //приращение x, можно и больше
  while x<=x2 do begin
    y:=Round(y2+(x-x1)*(y2-y1)/(x2-x1));
    // вот здесь рисовать тот котнур с центром в x,y
    x:=x+Delta;
  end;

[Dvoishnik]

не правильно направление вектора и длинна по этой формуле выходит

[Аватар]

Тогда я не понимаю вообще что нужно сделать. Вектор нарисовать что-ли?
Вектор будет {x2-x1,y2-y1}
Длина корень квадратный из (x2-x1)^2+(y2-y1)^2

[Dvoishnik]

Сообщение от Аватар

Тогда я не понимаю вообще что нужно сделать. Вектор нарисовать что-ли?
Вектор будет {x2-x1,y2-y1}
Длина корень квадратный из (x2-x1)^2+(y2-y1)^2

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

П.С. приду домой скину код исходники и скрин. может я где то на касячил.

[Аватар]

Все правильно. На экране нумерация линий от нуля сверху вниз, т.е. Y вниз направлена. Если хочешь её вверх направить, то пересчитай y:=S-y, где S смещение оси X вниз, например 500. Не так далеко как надо не верю

[Dvoishnik]

Сообщение от Аватар

Все правильно. На экране нумерация линий от нуля сверху вниз, т.е. Y вниз направлена. Если хочешь её вверх направить, то пересчитай y:=S-y, где S смещение оси X вниз, например 500. Не так далеко как надо не верю

число S будет зависеть от размера формы (области рисования) по оси y я так понимаю?
ну может зрительно так выглядело, из за искажения направления. Попробую внести изменения. еще раз спасибо, С наступающим вас))

[Аватар]

Для S=500

procedure TForm1.Button1Click(Sender: TObject);
var x1,x2,x,y1,y2,y,Delta: Integer;
begin
  x1:=23;
  y1:=30;
  x2:=300;
  y2:=207;
  x:=x1;
  Delta:=2; //приращение x, можно и больше
  while x<=x2 do begin
    y:=Round(y2+(x-x1)*(y2-y1)/(x2-x1));
    Canvas.FillRect(ClientRect);
    Canvas.RoundRect(x-25,500-(y-25),x+25,500-(y+25),75,75);
    Sleep(50);
    x:=x+Delta;
  end;
end;

[Dvoishnik]

S то отчего зависеть будет??
я правильно предположил в посте выше?

[Аватар]

От размеров формы. И эти иксы и игрики не должны за её пределы вываливаться, иначе масштабировать придется