Moin liebe DPler,
ich versuche mich gerade an einer reminder-ähnlichen Funktion, die mit Hilfe der CoolTray einen Balloontipp ausgeben soll, wenn ein Event ansteht. Das Datum wird aus einer Datenbank Table entnommen. Der Zeitabstand wird aus einem MainMenu gewählt.
Wie kann ich nun aber dem Programm beibringen, NUR vor dem gewählten Intervall den Balloontipp zu bringen. Bis jetzt kommt er schon beim Programmstart, was ja eigentlich nicht Sinn der Sache ist, heute über ein Event in 10 Jahren erinnert zu werden.
Hier bisher mein Lösungsansatz:
Delphi-Quellcode:
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
case IntervalsMenu.MenuIndex of
1: DaySpan(Table1.Fields[6].AsDateTime,Now-0.00374); // 5 Min
2: DaySpan(Table1.Fields[6].AsDateTime,Now-0.00694); //10 Min
3: DaySpan(Table1.Fields[6].AsDateTime,Now-0.01042); //15 Min
4: DaySpan(Table1.Fields[6].AsDateTime,Now-0.02083); //30 Min
5: DaySpan(Table1.Fields[6].AsDateTime,Now-0.04167); // 1 Std
6: DaySpan(Table1.Fields[6].AsDateTime,Now-1.00000); // 1 Tag
end;
end;
Füge ich das evtl. an der falschen Stelle ein? Oder sollte ich addieren, statt subtrahieren?
Vielen Dank schon mal für eure Mühen,
SoD