Движение

[Mickle]

Привет всем!
Мужики выручте дело в том что вот эта процедура
procedure Line;
Begin
MainForm.Canvas.Pen.Color:=clWhite;
x:=Random(500)+1;
MainForm.Canvas.MoveTo(x,300);
MainForm.Canvas.LineTo(x,285);
end;
чертит линию в самом низу формы размер линии как вы видите 15 См типа пули подскажите как эти линии сделать чтоб они двигались от нижней границы формы к верхней границе формы
У меня эти линии чертятся по нажатию пробела в Обработчике OnKeyDown. Как сделать чтоб они начали двигаться Подскажите пожалуйста
Заранее благодарю.

[Wiggle]

Следишь за каждой такой линией в процессе всего движения. Например, держи в памяти адрес вехней точки. И по таймеру - ползёшь.
Соответственно на каждый шаг таймера поднимаешь на один или несколько пикселей : дорисовал сверху, подтёр снизу.. и нет проблем

[Shuraken]

http://www.soft32.ru/delphi.shtml?to...hic&title=boat

[SERG1980]

Фрагмент проги (Две линии движутся навстречу друг другу одна сверху другая снизу)
form1.Canvas.Pen.Color:=form1.Color ;
form1.Canvas.Pen.Width:=3;
for j:=0 to form1.Height div 2-10 do
begin
form1.Canvas.MoveTo(0,j);
form1.Canvas.LineTo(500,j);
form1.Canvas.MoveTo(0,340-j);
form1.Canvas.LineTo(500,340-j);
sleep(5);
вместо sleep можешь загнать всё это в таймер

[Mickle]

Мужики честно не могу врубится помогите я попробывал вот так
procedure Line;
Begin
for y:=0 to MainForm.Height do
Begin
MainForm.Canvas.Pen.Color:=clWhite;
x:=Random(500)+1;
MainForm.Canvas.MoveTo(x,300-y);
MainForm.Canvas.LineTo(x,285-y);
sleep(3);
end;
end;
да фигня какая-то получается не врублюсь как сделать чтоб предыдущий кусочек линии закрашивать цветом формы чтоб получился эффект летящей пули Выручите
Заранее Благодарю

[Shuraken]

public
{ Public declarations }
procedure RunBullet(x, y: integer; Color: TColor);
end;


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


procedure TForm1.RunBullet(x, y: integer; Color: TColor);
const
dx = 10;
dy = 20;
begin
with Form1.Canvas do
begin
Pen.Color := Color;

MoveTo(x, y);
LineTo(x + dx, y);
LineTo(x + dx, y + dy);
LineTo(x, y);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
x := 100;
y := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
RunBullet(x, y, clNavy); //стираем пулю
if y < Form1.Height then
y := y + 10
else begin
x := 100;
y := 0;
end;
RunBullet(x, y, clWhite); //рисуем на новом месте
end;


И все.