Hallo
Zitat von
fantasyboy973:
habe es jetzt mit OnKeyPress Ereignis probiert aber da lassen sich die schläger dann garnicht mehr bewegen!
Tatsache,
OnKeyPress wird nur bei Tasten aufgerufen, die einen
ASCII-Code senden und dies ist bei den Pfeiltasten nicht der Fall. Für die Buchstaben ginge es so:
Delphi-Quellcode:
else if (Key = #97) OR (Key = #65) then // a bzw. A
begin
Schlaeger1.Top := Schlaeger1.Top + 20;
end
else if (Key = #81) OR (Key = #113) then // q bzw. Q
Schlaeger1.Top := Schlaeger1.Top - 20;
Bei den Pfeiltasten musst du wohl oder übel mit
OnKeyDown und
OnKeyUp abfragen, ob eine Taste nun gedrückt ist oder nicht und entsprechend darauf reagieren. Oder du legst die Pfeiltasten-Aktion auf P und Ö (oder Ähnliches), was das einfachste für dich sein dürfte.