Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: Wiederholen einer aktion

    Delphi
    by Coffeecoder, 5. Feb 2012
  Dieser Code setzt du in den FormKeyDown:
  
  procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  begin
  
  if ((MannY >= 0) and (Key=Ord('W'))) then
  begin
  dec(mannY,7);
  Refresh;
• Forum: Multimedia

  AW: Wiederholen einer aktion

    Delphi
    by Coffeecoder, 5. Feb 2012
  Hast du da mal mit einer For-Schleife versucht?
  Hier kannst du auch eine Case-Anweisung benutzen ;)
  
  
  case random(4)of
  0: inc(JagdX,10);
  1: dec(JagdX,10);
  2: inc(JagdY,10);
  3: dec(JagdY,10);
  end;