Thema: Delphi Wecher - Abfrage fehlt

Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#9

Re: Wecher - Abfrage fehlt

  Alt 9. Mär 2006, 20:38
Sacht mal Jungs, jede Millisekunde? Prüfe 1x pro Minute, bimmle, sobald die aktuelle Zeit GRÖßER als die Weckzeit ist und stell den Wecker dann einfach ab!
Delphi-Quellcode:
Procedure TForm1.WeckerTimer (Sender : TObject);
Begin
  If Now > MyWeckZeit Then Begin
     Wecker.Enabled := False;
     BimmelBim;
  End;
End;

Procedure TForm1.btWeckerStellenClick(Sender : TObject);
Begin
  MyWeckZeit := Date + StrToTime (edWeckZeit.Text);
End;
Auf der Form ist ein Edit-Feld 'edWeckZeit', ein Timer 'Wecker'. Deklariert ist ein Feld 'MyWeckzeit : TDateTime' und eine Methode 'BimmelBim' die bimmelt.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat