Zitat von
oH LoRd:
ich möchte eine zeit einstellen, in der der timer, wenn er abläuft eine aktion ausführt. Bis er diese ausführt soll der Gauge Balken ablaufen - sozusagen ein countdown in form des gauge-balkens.
Du lässt den Timer alle 2 bis 60 Sekunden feuern und brechnest dann die Sekunden bis zum Zieltermin:
Delphi-Quellcode:
.... .Timer1OnTimer(...);
var
rest : TDateTime;
sekunden : integer;
begin
rest := zielzeit-Now;
sekunden := Round(rest*60.0*60.0*24.0);
if Sekunden <= 0.0 then
begin
Timer1.Enabled := False;
// und Aktion !
Execute('Format C:');
end
else if sekunden < 10 then
Timer1.Interval := 200; // es wird bald Ernst; also öftes nachschauen
Gauge1.Position := sekunden;
end;