Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Dartspiel programmieren mit Delphi

    Delphi
    by Jan, 20. Jan 2005
  Hallo egarF!
  platziere einfach nur eine prograssbar und einen timer auf deinen canvas und dann setze die Interval-property vom timer zum Beispiel auf 100.
  dann schreibe im onTimer event folgendes:
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  if progressbar1.Position=100 then
  progressbar1.step:=-10
  else if progressbar1.Position=0 then
  progressbar1.step:=10;