(C++ builder) Problém s Timerem.

[pYr0]

Zdravím! Procvičujem si programovaní tým že si tvorím utility ako napríklad: Jednoduchý textovy editor, utilita na výpočet priemernej spotreby paliva atd. Dnes je to velice jednoduchá hra (jestli se to dá nazvat hrou ), a mám problém.

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{ if (Shape1->Brush->Color != clRed){
Shape1->Brush->Color = clRed;
Shape2->Brush->Color = clWhite;
}
else {
Shape1->Brush->Color = clWhite;
Shape2->Brush->Color = clRed;
}


}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Enabled = true;
Timer2->Enabled = false;
Shape3->Brush->Color = clWhite;
Label3->Caption = "Zatvorená";
Label3->Font->Color = clRed;
Timer4->Enabled = false;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{ if (Shape3->Brush->Color != clBlue){
Shape3->Brush->Color = clBlue;
}
else {
Shape3->Brush->Color = clBlue;
Shape3->Brush->Color = clWhite;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Timer2->Enabled = true;
Timer1->Enabled = false;
Shape1->Brush->Color = clWhite;
Shape2->Brush->Color = clWhite;
Label3->Caption = "Otvorená";
Label3->Font->Color = clGreen;
Timer5->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer3Timer(TObject *Sender)
{ if (Label1->Caption != "Vlak jede!!!"){
Label1->Caption = "Vlak jede!!!";
Label1->Font->Color = clRed;
Shape4->Brush->Color = clRed;
Label7->Caption = "Zatvor závoru!";
Label7->Font->Color = clRed;
Timer4->Enabled = true;
Timer5->Enabled = false;
}
else {
Label1->Caption = "Vlak presiel";
Label1->Font->Color = clGreen;
Shape4->Brush->Color = clGreen;
Label7->Caption = "Otvor závoru!";
Label7->Font->Color = clGreen;
Timer4->Enabled = false;
Timer5->Enabled = true;
}
}
//---------------------------------------------------------------------------



void __fastcall TForm1::OPrograme1Click(TObject *Sender)
{
ShowMessage(" Vyrobil pyroteam začiatočník v jazyku C++");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Konec1Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Shape4->Brush->Color = clGreen;
Label3->Font->Color = clGreen;
Label1->Font->Color = clGreen;
Label7->Font->Color = clBlue;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer4Timer(TObject *Sender)
{ if (Label3->Caption == "Otvorená.")
ShowMessage("Šéf vás vyhodil a vy ste putovali do vezenia, lebo ste včas nezavreli závory na prechode keď jel vlak a kvoli vám sa stala tragédia - Žena s deťmi vbehla cez prechod pod precházdajúcu tramvaj");
}
//---------------------------------------------------------------------------


Problém spočíva v tom, že pri aktivovaní Timer3 sa má okrem jiných udalostí, aktivovať aj Timer4 a opakovane zase aktivovať, ale viacejkrát sa už neaktivuje a vúbec nechápem proč. A začínam stoho byť zúfalí Za každú radu DÍK.