Suche Scheduler Timer Komponente

[SvB]

Da gibt es auch in den JEDIs das TJvScheduledEvents

Ich mach das z.B. so:

Delphi-Quellcode:

FJvScheduledEvents: TJvScheduledEvents;
dTime := StrToTime('17:30:00');
with FJvScheduledEvents.Events.Add do begin
   Name := 'IrgendeinName';
   Schedule.RecurringType := srkWeekly;
   Schedule.StartDate := DateTimeToTimeStamp(now());
   Schedule.EndType := sekNone;
   (Schedule as IJclWeeklySchedule).DaysOfWeek := [swdTuesday];
   (Schedule as IJclWeeklySchedule).Interval := 1;
   (Schedule as IJclScheduleDayFrequency).StartTime := MilliSecondOfTheDay(dTime);
   (Schedule as IJclScheduleDayFrequency).EndTime := MilliSecondOfTheDay(dTime);
   (Schedule as IJclScheduleDayFrequency).Interval := 1;
   OnExecute := ScheduleEvent;
end;

procedure ScheduleEvent(Sender: TJvEventCollectionItem; const IsSnoozeEvent: Boolean);
begin
  if TJvEventCollectionItem(Sender).Name = 'IrgendeinName' then begin
    // mach was
  end;
end;

oder einfach über die Eigenschaften der Komponente