Delphi-Timer fuer Anfaenger...Mann hast du Glueck dass ich letzte Nacht geschlafen habe.
- Neues Projekt in Delphi erstellen (ja, neu = leer).
- Timer, Edit, 2 Buttons auf die Form.
- Timer-Intervall auf 60000 einstellen.
- Caption von Button1 auf "Starten" setzen.
- Caption von Button2 auf "Stoppen" setzen.
- Doppelclick auf die Form um das OnCreate-Ereignis zu bekommen. Dort schreibst du:
Delphi-Quellcode:
Timer1.Enabled := False;
Edit1.Text := '20';
- 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 = '0' then
Edit1.Text := '20';
- Doppelclick auf Button1 um das OnClick-Event fuer Button1 zu bekommen. Dort schreibst du: Timer1.Enabled := True;
- Doppelclick auf Button2 um das OnClick-Event fuer Button2 zu bekommen. Dort schreibst du: Timer1.Enabled := False;
- Testen.
So, nachdem du das hoffentlich geschafft hast, kannst du dir ueberlegen wie du den Code in deine Anwendung bekommst. Viel Spass
Greetz
alcaeus