Form1->color= blinkend rot blau

[Knocker27]

Hi, wie kann mann bei Form1 den Hintergrund (Color) zum blinken bringen?
Habs mit Schleifen versucht aber da stellt er nur die letzte Farbe dar.

[Kolumbus]

Mit einem Timer könntest du zum Ziel kommen.

[Chakuza]

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Timer1->Enabled; // Timer 1 beim Erstellen der Form1 aktivieren
Form1->Color = clRed; // Hintergrundfarbe der Form1 auf Rot setzen
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Timer1->Interval = 1000; // Timer wird jede Sekunde angesprochen
// Wert kann auch niedriger gesetzt werden, um ein schnelleres und
// nervenderes Blinken zu erstellen

if ( Form1->Color == clRed )
Form1->Color = clBlue;
else
Form1->Color = clRed;
}

Mfg. Chakuza