Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Timer + Gauge

    Delphi
    by shmia, 20. Apr 2004
  Na das ist doch nicht so schwer: :stupid:
  angenommen, du möchtest einen Countdown von 45 Minuten.
  Anstatt den Timer einmal nach 45 min feuern zu lassen, rechnest du erst einmal
  die Zielzeit aus:
  var
  zielzeit : TDateTime;
  minuten : double;
  begin
  minuten := 45.0;
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Timer + Gauge

    Delphi
    by shmia, 19. Apr 2004
  Du lässt den Timer alle 2 bis 60 Sekunden feuern und brechnest dann die Sekunden bis zum Zieltermin:
  
  .... .Timer1OnTimer(...);
  var
  rest : TDateTime;
  sekunden : integer;
  begin
  rest := zielzeit-Now;
  sekunden := Round(rest*60.0*60.0*24.0);