Einzelnen Beitrag anzeigen

Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#37

Re: brauche bishen hilfe damit die zeit im Edit runter leuft

  Alt 24. Apr 2005, 08:48
Delphi-Timer fuer Anfaenger...Mann hast du Glueck dass ich letzte Nacht geschlafen habe.
  1. Neues Projekt in Delphi erstellen (ja, neu = leer).
  2. Timer, Edit, 2 Buttons auf die Form.
  3. Timer-Intervall auf 60000 einstellen.
  4. Caption von Button1 auf "Starten" setzen.
  5. Caption von Button2 auf "Stoppen" setzen.
  6. Doppelclick auf die Form um das OnCreate-Ereignis zu bekommen. Dort schreibst du:
    Delphi-Quellcode:
    Timer1.Enabled := False;
    Edit1.Text := '20';
  7. Doppelclick auf den Timer um das OnTimer-Event zu bekommen. Dort schreibst du:
    Delphi-Quellcode:
    Edit1.Text := IntToStr(StrToInt(Edit1.Text)-1);
    if Edit1.Text = '0then
      Edit1.Text := '20';
  8. Doppelclick auf Button1 um das OnClick-Event fuer Button1 zu bekommen. Dort schreibst du: Timer1.Enabled := True;
  9. Doppelclick auf Button2 um das OnClick-Event fuer Button2 zu bekommen. Dort schreibst du: Timer1.Enabled := False;
  10. Testen.
So, nachdem du das hoffentlich geschafft hast, kannst du dir ueberlegen wie du den Code in deine Anwendung bekommst. Viel Spass

Greetz
alcaeus
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de