ich hab mir mal den bsp.progg heruntergeloadet. du hast mich auf eine idee gebracht.
das mit dem "kalenderblatt" war mir klar. nur wusste ich noch nicht wie diese komponente heißt.
ich will ja nichts sagen: aber kann es sein das bei dir ein fehler im code ist?
ich habe das mal bei mir getestet und bei mir setzt der countdown nach 4sec aus, d.h. es wird nicht weiter nach unten gezählt
Delphi-Quellcode:
procedure Tfmclock.timerzeitTimer(Sender: TObject);
//////// ZEITDAUER IN MIN///////////////////////////////////////
procedure ShowRemainingTime2(dtAlarm2: TDateTime);
var dtRemaining2: TDateTime;
h, m, s, ms: Word;
begin
dtRemaining2 := dtAlarm2 - Now;
DecodeTime(dtRemaining2, h, m, s, ms);
Inc(h, 24 * Trunc(dtRemaining2));
Caption := Format('%.2d:%.2d:%.2d', [h, m, s]);
meHours.Text := IntToStr(h);
meMin.Text := IntToStr(m);
meSeconds.Text := IntTostr(s);
end;
/////////////////////////////////////
function RestOfSecond: Word;
var h, m, s: Word;
begin
DecodeTime(Now, h, m, s, Result);
end;
///////////////////////////////////////
begin
if cbsignal.Checked=false
then begin timerzeit.Enabled:=false;
showmessage('Signaldatei auswählen!');
rgeins.Checked:=true;
rgzwei.Enabled:=true
end
else begin
edzeit.enabled:=false;
sbzeit.Enabled:=false;
with Sender as TTimer do
begin
Enabled := False;
if dtpTime.DateTime > Now then
begin
ShowRemainingTime2(dtpTime.DateTime);
InterVal := RestOfSecond;
Enabled := True;
end
else begin //datei abspielen
...