Timer met update van resterende tijd
Hi
Ik toon een form met een melding (FormScanMessage). Het is de bedoeling dat het form
automatische na 3 seconden wordt afgesloten. Hiervoor gebruik ik een TTimer met een
interval van 3000.
Het sluiten na 3 seconden werkt MAAR ik wil in een label de resterende seconden laten
zijn/aftellen en dat krijg ik niet voor elkaar..
Op internet vond ik een vergelijkbaar voorbeeld maar het update van het label met de
resterend aantal seconden wordt niet getoond.
https://www.reddit.com/r/delphi/comm..._from_a_timer/
Wanneer formScanMessage met de melding wordt getoond wordt de volgende code uitgevoerd
Code:
procedure TFormScanMessage.FormCreate(Sender: TObject);
begin
TimerStart.Tag := 3000;
TimerStart.Enabled := True;
Label_Seconds.Caption := intToStr(trunc(TimerStart.Tag/1000))+' sec.';
end;
Het OnTimer event bevat :
Code:
procedure TFormScanMessage.TimerStartTimer(Sender: TObject);
begin
TimerStart.Tag := TimerStart.Tag - 1000;
Label_Seconds.Caption := intToStr(trunc(TimerStart.Tag/1000))+' sec.';
Close;
end;