OnkeyDown/Up Event Probleme-Zwei Tasten

[pendragon302]

Hi,

Danke 3_of_8.

Hab nen Timer jetzt genommen und meine Lösung sieht nun so aus

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

begin

keyarray[(key and $FF)]:=true;

end;



procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

keyarray[(key and $FF)]:=false;


end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (keyarray[38] and (shape1.Top>=34)) then
shape1.top:=shape1.Top-5;

if keyarray[81] and (shape2.Top>=34)then
shape2.top:=shape2.Top-5;

if keyarray[40] and (shape1.Top<=364) then
shape1.top:=shape1.Top+5;

if keyarray[65] and (shape2.Top<=364) then
shape2.top:=shape2.Top+5;

end;

Was sagt ihr zu der Lösung, also bis auf die Schnelligkeit (die werde ich ncoh ändern).
Könnte diese Lösung noch Probleme bereiten?
Was könnte man besser machen?