Beim Tsten drücken, wird geschossen.

[Falay]

Hallo Leute,

Ich habe eine kleine Probleme beim Programmieren. Ich versuche gerade ein Spiel zu programmieren, nämlich so:

Wenn ich auf Taste drücken, wird geschossen, wie muss ich das machen?
Bis jetzt, funktioniert es nicht so, wie ich es wollte. Es schiesst nur einmal und fänkt auch nicht von Anfang an mit schiessen, es schiesst schon am mitte am Fenster.

Ich arbeite mit Bilder, Ball und Monster. Jedesmal wenn ich die Taste drücke fliegt ein Ball rauf, er soll die Monster von Oben treffen. (Prinzip von Spiel funktioniert so wie beim Space Invader)

Delphi-Quellcode:

 
procedure TfrmMain.down(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Score: integer;  
begin
       if(ssCtrl in Shift)then
          begin
            imgfire.visible:= true;
            tmfire.enabled:= true;
              while (imgfire.top+10 > img33.top)and (imgfire.left-img33.left > -10)
                     and(imgfire.left-img33.left < 10) do
                begin
                  Score:= 0;
                  lblSCORE.caption:= inttostr(Score +10);
                end;
          end;
     end;

Delphi-Quellcode:

procedure TfrmMain.tmfireTimer(Sender: TObject);
begin
      imgfire.Top:=  imgfire.Top-10;
end;

Anstatt mit Control Taste möchte ich mit Space Taste, wie muss ich das schreiben? Ich hatte versuch mir ssSpace, aber ich glaube es icht falsch.
if(ssCtrl in Shift)then (Ich bin noch ein Anfänger)

Könnt ihr mir bitte weiterhelfen.
Danke am voraus

[edit=Phoenix]Von Delphi.NET auf Win32 geändert. Mfg, Phoenix[/edit]

[DeddyH]

Hallo und Willkommen in der DP ,

kann es sein, dass Du diese Frage bereits im DF gestellt hast? Und Delphi.NET scheint das auch nicht zu sein.

[Phoenix]

Herzlich Willkommen in der DP.

Ich möchte Dich aber zuerst einmal bitten, Deine Fragen sorgfältiger zu stellen.
Diesen Code willst Du uns sicher nicht wirklich für die Codelib vorschlagen, oder? Warum hast Du dann diese Sparte gewählt? Und das ist ganz sicher auch kein Delphi .NET, wenn Du als Delphi-Version 5 angibst.

[BAMatze]

Hallo und Willkommen in der DP,

hast du mal versucht Key = vk_space abzufragen?

[Falay]

Zitat von BAMatze:

hast du mal versucht Key = vk_space abzufragen?

Nein, hatte ich vergessen, jetzt geht es, danke