Thema: Delphi Stopuhr bauen^^

Einzelnen Beitrag anzeigen

scp

Registriert seit: 31. Okt 2003
1.120 Beiträge
 
Delphi 7 Personal
 
#6

Re: Stopuhr bauen^^

  Alt 25. Jan 2004, 00:11
Oder so:
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;
  Mit Zitat antworten Zitat