Entwickler-Ecke

Sonstiges (Delphi) - Figur läuft nicht seit dummen Fehler


Badongo - Di 03.05.11 19:48
Titel: Figur läuft nicht seit dummen Fehler
Hallo,
ich hatte ein Spiel programmiert mit einer Figur, die sich bewegen lies.
das ganze sah wie folgt aus:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin
if key = vk_up then hoch:= 1;
if key = vk_down then runter:= 1;
if key = vk_left then links:= 1;
if key = vk_right then rechts:= 1;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key = vk_up then hoch:= 0;
if key = vk_down then runter:=0;
if key = vk_left then links :=0;
if key = vk_right then rechts :=0;
end;

und damals hat auch alles wunderbar funktoniert
nur habe ich diesen Teil

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key = vk_up then hoch:= 0;
if key = vk_down then runter:=0;
if key = vk_left then links :=0;
if key = vk_right then rechts :=0;
end;

gelöscht und seit dem bewegt sich die Figur nicht mehr.
Und wenn ich es versuche unter Form1 unter Ereignisse wieder einzustellen kommt folgender Fehler

undefinierte Bezeichnung FormkeyUp
und ; erwartet , aber ) gefunden (ich habe das überprüft aber da fehlt nirgendwo ein ;

Bitte helft mir
ich muss das Projekt bis Übermorgen abgeben und es lief vorher wirklich einwandfrei :(

Moderiert von user profile iconNarses: Delphi-Tags hinzugefügt


ALF - Di 03.05.11 20:02

Schau mal nach op Du dies noch drin stehen hast

Delphi-Quelltext
1:
2:
3:
4:
5:
type
  TForm1 = class(TForm)
  ....
  ....
  FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

lösch mal beides, deine Procedure TForm1.FormKeyUp und entferne mal aus dem Ereignis die Zuweisung.
Dann Start ausführen. Prog beenden.
Danach das Ereigniss neu erstellen mit doppklick und dein Code wieder einfügen.
Bzw hast du beim löschen irgend wo ne Klammer stehen lassen
gruss ALf