AW: Mehrere Zeitabfragen im Timer, wie?
Zitat:
Das geht auch besser mit einem Memo:
Delphi-Quellcode:
//Aufrufen, wenn ListBox1 geändert oder gefüllt wird
procedure TForm2.Button1Click(Sender: TObject); begin Memo1.Lines:= ListBox1.Items; end; procedure TForm2.Timer1Timer(Sender: TObject); var myTime : TDateTime; formatted : string; begin myTime:= now; DateTimeToString(formatted, 't', myTime); if formatted<>Label1.caption then Label1.Caption:= formatted else Exit; //wird nur 1x/Minute ausgeführt beim Minutenwechsel if POS(Label1.caption,Memo1.Text)<>0 then WinApi.Windows.Beep(1500,50); // oder weiter mit procedure AUSWERTUNG... end; |
AW: Mehrere Zeitabfragen im Timer, wie?
Hallo,
leider schon etwas spät aber ich dachte mir meine Idee könnte trotzdem mal weiterhelfen: An deiner Stelle würde ich die Liste welche du speicherst / erstellst mit den verschiedenen Aufgaben und deren Zeiten auswerten und den Timer (Tick Event) auf die Zeit bzw. den Zeitabstand zum nächsten Event setzen und wenn dies "getickt" hat wieder das selbe für das nächst anstehende "Event /Aufgabe". Und wenn man diese Liste anpasst oder ändert musst du das natürlich prüfen ob sich die aktuelle Zeitspanne zum nächsten Event geändert hat und dann ggf. die Zeit von Timer anpassen. Soweit meine Idee - ich hoffe ich habe dein Problem richtig erkannt und liege mit meinem Vorschlag nicht komplett daneben :cyclops: Beste Grüße, Niclas |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:45 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz