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?