Auswertung mit KEY

[Johannes013]

Hallo,

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.

[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 von Johannes013:

Hallo,

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.

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