Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: breakout clon, datei problem

    Delphi
    by taaktaak, 29. Mär 2008
  Das Bedienungsproblem kann dadurch gelöst werden, dass die Tastaturabfrage in die TimerMethode integeriert wird; damit sind wir dann wieder bei der ursprünglichen "GetAsync.." Lösung. Nun reagiert der "Schläger" zufriedenstellend schnell:
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  var i:integer;
  begin
  
  if GetAsyncKeyState(vk_Right)<>0 then
  if paddle_xr<image1.ClientWidth then...
• Forum: Multimedia

  Re: breakout clon, datei problem

    Delphi
    by taaktaak, 29. Mär 2008
  Hmmmmm, bin ich nun für Spiele zu alt???? Es ist schon frustierend :oops:
  
  Na, ist ein wenig kürzer, ohne "GetAsync..." zu arbeiten:
  
  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;
• Forum: Multimedia

  Re: breakout clon, datei problem

    Delphi
    by taaktaak, 29. Mär 2008
  Moin, Moin,
  
  1. Ich kann in Unit1 nicht entdecken, dass hier etwas in der Datei gespeichert wird.
  2. Die Datei wird zwar um Lesen geöffnet, aber nicht wieder geschlossen.
  3. Warum verwendest du in FormKeyDown "GetAsyncKeystate" und nicht einfach "Key"?
  
  Die Reaktion auf die Tasten CursorLeft/Right ist viel zu träge - oder?