Auswertung mit KEY

[Johannes013]

Hallo, :roll: :wink:

Ich möchte per KEY eine Anweisung ausführen.

Delphi-Quellcode:

procedure TMain.FahrenTimer(Sender: TObject);
begin
   if (key=vk_left) then
      begin
         Player.Left:=Player.Left-1;
      end;
end;

was ist daran falsch?

So unter dem Event OnKeyDown der Form gibt's keinen Fehler.


:coder: :?:

[mirage228]

Wo ist denn "Key" definiert? Wenn Du im Timer schauen möchtest, ob eine Taste gedrück ist, dann schau mal nach GetAsyncKeyState.

Viele Grüße

[Johannes013]

Jop,

danke............fragen hilft immer.

[Teekeks]

Zitat:

Zitat von Johannes013

Hallo, :roll: :wink:

Ich möchte per KEY eine Anweisung ausführen.

Delphi-Quellcode:

procedure TMain.FahrenTimer(Sender: TObject);
begin
   if (key=vk_left) then
      begin
         Player.Left:=Player.Left-1;
      end;
end;

was ist daran falsch?

So unter dem Event OnKeyDown der Form gibt's keinen Fehler.


:coder: :?:

Key ist ja auch eine der übergebenen Variablen der procedure (bei OnKeyDown) bei einem Timer wird keine Taste übergeben...

Ansonsten: das selbe wie mirage228...

[BAMatze]

Wäre es nicht besser, wenn du auf die WM_KeyDown oder WM_KeyUp Messages reagierst? Bei einem Timer führst du eine Menge únnötiger Abfragen durch, die vieleicht negativ auf die PErformanze des Programms einwirken.

MfG
BAMatze