Hi,
ich habe nun mal wieder ein etwas größeres Problem: ich bin derzeit dabei eine Art Wecker zu schreiben. Leider funktioniert das ganze nicht so, wie ich will.
Der Timer(tmTimer) steht auf 1000.
Im Ontimer-Ereignis:
Delphi-Quellcode:
procedure TMainFrm.tmTimerTimer(Sender: TObject);
begin
if Now = FDateTime
then begin
CoolTrayIcon1.ShowBalloonHint('
CSD » Alarm', '
Sie wollten um diese Uhrzeit informiert werden!'+#13#10+'
Es ist nun '+TimeToStr(FTime)+'
Uhr!', bitInfo, 60);
(* CoolTrayIcon1 ist eine Komponente für ein TrayIcon in der TNA *)
tmTimer.Enabled := false;
btnStart.Enabled := true;
end;
end;
Im OnClick des Start-Buttons (btnStart):
Delphi-Quellcode:
procedure TMainFrm.btnStartClick(Sender: TObject);
begin
FDate := dtpDate.Date;
FTime := dtpTime.Time;
FDateTime := StrToDateTime(DateToStr(FDate) + ' ' + TimeToStr(FTime));
Caption := DateTimeToStr(FDateTime); // zu Testzwecken
tmTimer.Enabled := true;
btnStart.Enabled := false;
end;
Nun ist das Problem, dass zwar die Caption richtig gesetzt wird, allerdings zur ausgewählten Uhrzeit nichts passiert. Der Button bleibt einfach disabled.
Hat dazu jemand eine Idee, warum?
Wenn Bedarf besteht hänge ich gerne auchmal der kompletten Source dran...
Chris