breakout clon, datei problem

[taaktaak]

Hmmmmm, bin ich nun für Spiele zu alt???? Es ist schon frustierend

Na, ist ein wenig kürzer, ohne "GetAsync..." zu arbeiten:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender:TObject;var Key:Word;Shift:TShiftState);
begin
  if Key=VK_RIGHT then
    if paddle_xr<image1.ClientWidth then begin
      paddle_xl:=paddle_xl+10;
      paddle_xr:=paddle_xr+10;
      end;

  if Key=VK_LEFT then
    if paddle_xl>0 then begin
      paddle_xl:=paddle_xl-10;
      paddle_xr:=paddle_xr-10;
      end;
end;

Aber trotzdem ist die Reaktion nach meinem Empfinden immer noch zu träge