Label1 + Timer



  • Hi
    Ich habe folgendes Problem, und zwar möchte ich das Label1 5 Minuten herunter zählt zbs. so 5:00, 4:59, 4:58 über Timer1 weiss jemand vieleicht wie ich das hinbekommen könnte, wäre echt net wenn mir jemand helfen kann
    danke schonmal im vorraus
    mfg christian



  • #include <vcl.h>
    #pragma hdrstop
    #include "Unit1.h"
    #include "DateUtils.hpp"
    //---------------------------------------------------------------------------
    #pragma package(smart_init)
    #pragma resource "*.dfm"
    TForm1 *Form1;
    TDateTime zeit;
    
    __fastcall TForm1::TForm1(TComponent* Owner)
       : TForm(Owner)
    {
    }
    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
       Timer1->Interval = 1000;
       Timer1->Enabled = true;
    }
    void __fastcall TForm1::FormCreate(TObject *Sender)
    {
       zeit=StrToTime("00:05:00");
    }
    void __fastcall TForm1::Timer1Timer(TObject *Sender)
    {
       TDateTime val=StrToTime("00:00:00");
       if(zeit>=val)
       {
          Label1->Caption = zeit.TimeString().SubString(4,5);
          Label1->Refresh();
          zeit=IncSecond(zeit,-1);
       }
       else
       {
          Label1->Caption ="Boooommm";
          Timer1->Enabled = false;
       }
    }
    

Anmelden zum Antworten