Ich will im meinem Spiel die Pfeiltasten zu Steuerung benutzen!
Ich habe folgenden Code von Daniel/Sakura genommen:
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_LEFT: begin
Image1.Left := Image1.Left - 5;
Key := 0;
end;
VK_RIGHT: begin
Image1.Left := Image1.Left + 5;
Key := 0;
end;
VK_UP: begin
Image1.Top := Image1.Top - 5;
Key := 0;
end;
VK_DOWN: begin
Image1.Top := Image1.Top + 5;
Key := 0;
end;
end;
end;
KeyPreview steht wie gefordert auf true!
Aber es passiert garnichts!
Wie muss ich es dann machen?
Ich habe Delphi 6 Professional!
Danke im voraus