Перемещение Image по заданной траектории.

[werrey]

Здравствуйте.

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

Тут сами значения не важны, главное суть понять, приведите пример небольшой пожалуйста, или поправьте мой недоделанный код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, pngimage, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   x,y,i,h : integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
x:=40;
i:=2;
y:=40;
h:=1;
Image1.Left:= x;
Image1.Top:= y;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

Image1.Left:= x;
Image1.Top:= y;
//x:=x+(i*h);
y:=y+(i*h);
if y =150  then
Begin
i:=2;
//y:=200;
y:=150;
 //y:=y+(i*h);
h:=h*-1;
end;

if y =40  then
Begin
x:=x+(i*h);

i:=2;
y:=40;
x:=40;
h:=h*-1;

end;
 end;
end.

Что-то никак сообразить не могу, заранее благодарю.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[bulldog5293]

Тут либо через таймер, либо задавать направленность, могу предложить только вариант через клавиши вверх, вниз, влево и вправо, а там на усматрение

procedure TForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Case Key of
 VK_RIGHT : begin image1.left:=image1.left+5;
 if (form.ClientWidth)<=(image1.Left+image1.Width) then begin
 image1.Left:=form.ClientWidth-image1.Width;
 end;
 end;
 VK_left : begin image1.left:=image1.left-5;
  if (image1.Left)<=0 then begin
 image1.Left:=0;
 end;
 end;
 VK_UP : begin image1.Top:=image1.Top-5;
  if (image1.Top)<=0 then begin
 image1.Top:=0;
 end;
 end;
 VK_down : begin image1.Top:=image1.Top+5;
  if (form.ClientHeight)<=(image1.Top+image1.Height) then begin
 image1.Top:=form.ClientHeight-image1.Height;
 end;
 end;
 end;
end;

[werrey]

У меня и так через таймер сделано, в примере картинка двигается сверху вниз и назад, а как сделать например, чтобы она двигалась по прямоугольной траектории, а потом в обратном направлении?

[Swarog]

вот пример двигается по прямоугольной траектории (циклично), для того что бы двигалась обратно скорректирую массив WayPoint

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Image: TRadioButton;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    ToX, ToY: integer;
    CurX, CurY, Dx, Dy: real;
    TargetNum: integer;
    procedure CalcNextTarget();
    { Private declarations }
  public
    { Public declarations }
  end;

const
WayPoint: array[0..3,0..1] of integer =
 ((100, 100),
  (100, 400),
  (400, 400),
  (400, 100)
 );
Step = 6;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CalcNextTarget;
var
 d: real;
 X, y: integer;
begin
 if TargetNum < 0 then TargetNum := 0
  else TargetNum := (TargetNum + 1) mod length(WayPoint);
 x := waypoint[TargetNum,0];
 y := waypoint[TargetNum,1];
 d := sqrt(sqr(curx - X) + sqr(cury - Y))/step;
 dx := (x - curx) / d;
 dy := (y - cury) / d;
 tox := x;
 toy := y;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (sqrt(sqr(curx - tox) + sqr(cury - toy)) < step) then CalcNextTarget();
  curx := curx + dx;
  cury := cury + dy;
  image.Left := round(curx) - 8;
  image.Top := round(cury) - 8;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TargetNum := -1;
CurX := image.Left + 8;
Cury := image.top + 8;
CalcNextTarget;
end;

end.