evento OnKeyPress

[anhaya]

É o seguinte preciso algo que ao precionar a tecla "espaço" a figura solte um tiro(uma Imagem), uma espécie de aviaozinho que solte tirinhos e tal, so que não sei como fazer para programar isto.

Se possível, postem uma linha de comando pra isto......Obrigado^^

[Jhonas]

veja esses links

http://www.apostilando.com/download.php?co...ategoria=Delphi

http://www.baixaki.com.br/download/a-bibli...s-em-delphi.htm

http://ultradownloads.uol.com.br/download/...ogos-em-Delphi/

http://www.baixatudo.com.br/biblia-da-cria...jogos-em-delphi

http://www.planetadelphi.com.br/download/4...jogos-em-delphi

abraço

[anhaya]

Aqui neste exemplo o tiro so sai uma vez ao clicar "espaço", porém precisa ter tiro infinito, quero saber o seguinte. ^{Existe alguma maneira de eu fazer um loop para cada vez que eu apertar espaço prosseguir aquela série de comandos?}

O código de 1 tiro esta aqui: // ^{Preciso repetir este tiro cada vez que clicar "espaço"}

procedure TJogo.FormKeyPress(Sender: TObject; var Key: Char);

//MOVIMENTANDO O TIRO

var

i : integer;

begin //A IMAGEM FICARA VISIVEL AO PRESSIONAR

if Ord(Key) = 32 then

begin

Image3.Visible := True;

for i := 1 to 85 do

begin

Sleep(10);

Application.ProcessMessages;

Image3.Top := Image3.Top -3;

if Image3.Top <= 41 then Image3.Visible := False;

end;

end;

end;

end.