Timer + Gauge

[shmia]

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;