Thema
:
Delphi
Stopuhr bauen^^
Einzelnen Beitrag anzeigen
scp
Registriert seit: 31. Okt 2003
1.120 Beiträge
Delphi 7 Personal
#
6
Re: Stopuhr bauen^^
25. Jan 2004, 00:11
Oder so:
zusammenfalten
·
markieren
Delphi-Quellcode:
Var
StartTime : TDateTime;
// Globale Variable
procedure
TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := TimeToStr(now - StartTime);
If
MinuteOf(now - StartTime) = 10
then
// Wenn zehn Minuten vergangen sind
begin
Timer1.Enabled := false;
// Hier noch Sound abspielen
end
;
end
;
procedure
TForm1.Button1Click(Sender: TObject);
begin
StartTime := now;
Timer1.Enabled := true;
end
;
Zitat
scp
Öffentliches Profil ansehen
Mehr Beiträge von scp finden