Hast du's so und
KeyPreview des Formulars auf
true?
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #97) OR (Key = #65) then // a bzw. A
Schlaeger1.Top := Schlaeger1.Top + 20
else if (Key = #81) OR (Key = #113) then // q bzw. Q
Schlaeger1.Top := Schlaeger1.Top - 20
else if (Key = #108) OR (Key = #76) then // l bzw. L
Schlaeger2.Top := Schlaeger2.Top + 20
else if (Key = #111) OR (Key = #79) then // o bzw. O
Schlaeger2.Top := Schlaeger2.Top - 20;
end;
Das geht bei mir wunderbar.