Выстрел при нажатии на пробел

[demiancz]

Пытаюсь разобраться с созданием игр. Бросил на форму TImage. Image1 перемещается по всей форме кнопками клавиатуры

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
vk_LEFT:if Image1.Left> 0 then Image1.Left:=Image1.Left-5;
VK_RIGHT:if Image1.Left<Form1.ClientWidth-Image1.Width-5 then Image1.Left:=Image1.Left+5;
vk_UP:if Image1.Top> 0 then Image1.Top:=Image1.Top-5;
VK_DOWN:if Image1.Top<Form1.ClientHeight-Image1.Height-5 then Image1.Top:=Image1.Top+5;
end;
end;

Теперь нужно сделать чтобы при нажатии на пробел происходил выстрел. Пуля должна лететь от средины TImage вправо. Я так понимаю что с помощью Canvas нужно нарисовать точку, или маленький круг и заставить его лететь вправо. Но как это сделать? Может кто пример даст? Помогите пожалуйста.

[doktor255]

[QUOTE]Может кто пример даст?[/QUOTE
Пример чего конкретно? Как нарисовать круг, или как его сдвинуть? Движения, это анимация. Анимация состоит из кадров. Кадры сменяются с течением времени, а значит в коде должен быть счётчик времени. Итог:
1) Таймер.
2) Image1.Canvas (все свойства есть в интернете)
3) фантазия.

[demiancz]

Допустим я так делаю. Хотя может быть лучше будет и прямоугольник делать, а не элипс

Canvas.Ellipse(Image1.Left+32,Image1.Top+16,Image1.Left+64,Image1.Top+32);

Как заставить лететь вправо?

[doktor255]

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

[raxp]

...добавить в координаты дельту, а по клавишам изменять ее (инкремент/декремент). При необходимости по вертикали, добавляем дельту по Y.

Фон очищать при новой прорисовке.

[doktor255]

Пример анимации

procedure TForm1.Timer1Timer(Sender: TObject);
var
  p: Tpoint;
begin
 Timer1.Interval := 1;
 Randomize;
 p.X := Random(60);
 p.Y := Random(60);
 Image1.Canvas.FillRect(Canvas.ClipRect);
 Image1.Canvas.Ellipse(p.X - 15, p.Y - 15, p.X + 15, p.Y + 15);
end;

[phomm]

Вообще-то, есть специальная тема, где собирается подобный учебный материал
http://programmersforum.ru/showthread.php?t=1206