|
 Forum
Grundkurs
»Introduktion
»Snabbguide
»Komponenter
»Händelser
»Strängar
»Räkna med Delphi »Egna
typer
»Selektion
»Iteration
»Menyer
»Funktioner
»Arraystrukturer
Tips & Tricks
»Nya tips
»Blandat
»Databaser
»Filer
»Forms
»Grafik
»Internet
»Komponenter
»Matematik
»Multimedia
»Objekt/ActiveX
»Skrivare
»Strängar
»System
»Mest lästa tips
Artiklar
»Delphi och ADO
»Bygga en DLL
»Skapa en enkel rapport
»Hantera registret
»Enheter, units
»Klassen TCanvas
»Använd LookUp Controls
 Nya
tips
 Lägg
till tips
 Delphilänkar
 Gästbok
|
|
|
Skapa en nedräknare med en Timer
|
Kategori: Blandat
Inlagt: 2002-09-12
Läst: 600
Inlagt av: Staffan Berg
|
|
Beskrivning |
|
Ett exempel på en timerfunktion som räknar dedåt.
|
|
Kod |
procedure TForm1.Edit1Change(Sender: TObject);
begin
//the time is entered in seconds. If you wish the time to be entered in "hh:mm:ss", you will
have to parse it and put it into a total seconds format.
TotalTime := StrToInt(Edit1.Text);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
Edit1.Enabled := false; //disable the ability to set the time
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled := false;
Edit1.Enabled := true; //re-enable the ability to set the time
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec(TotalTime); //decrement the total time counter
Edit2.Text := IntToStr(TotalTime); //put the value in an edit box so he can see it
if TotalTime = 0 then //have we timed out?
//... Do something ...
end;
|
|
|