problem z TTimer

[danieldb]

Witam
Mam pytanie co do TTimer. TworzÄ…c najprostszy program np.:

Kod: Zaznacz cały

  for(int i = 1; i <= 10000; i++)
   {
     Label1->Refresh();
     Label1->Caption = i;
    }

Chciałbym zatrzymać wyświetlanie cyfry na pewien czas. Dokładam na forme komponent TTimer:

Kod: Zaznacz cały

for(int i = 1; i <= 10000; i++)
   {
     Label1->Refresh();
     Label1->Caption = i;
    Timer1->Enabled = true;
    }

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  Timer1->Enabled = false;
}


Niestety nie działa mi to. Moglibyście wskazać gdzie robię błąd??

Pozdrawiam
DanelDb

[Cyfrowy Baron]

Jeżeli w zdarzeniu OnTimer obiektu Timer1 umieszczasz kod: Timer1->Enabled = false; to zegar zatrzyma się po pierwszym cyklu, gdyż zdarzenie OnTimer odpowiada za "tykanie" zegara.

---

Jeżeli chcesz odświeżać obiekt Labe1 tak by wyświetlał liczby w każdym obiegu pętli, to odświeżanie Label1 nic nie da, gdyż trzeba odświeżać całą aplikacje:

Kod: Zaznacz cały

for(int i = 1; i <= 10000; i++)
{
   Label1->Caption = i;
   Timer1->Enabled = true;
   Application->ProcessMessages(); //<-- odÅ›wieżenie aplikacji
}


Tylko po co w każdym obiegu pętli włączasz zegar, raz włączony nie wyłączy się sam.

---

Proponuję zapoznać się w serwisie Cyfrowy Baron z poradą: różne 2 Przeliczanie czasu w milisekundach na godziny, minuty, sekundy i milisekundy (65).
znajdziesz tam przykład kodu kompletnego stopera, co pomoże Tobie zrozumieć zasadę działania obiektu Timer.