Formularfarbe wechseln

[Peter Hennek]

Hallo,
zu Weihnachten will ich mein Formular blinken lassen, dass funktioniert auch mir der unten aufgeführten Procedure. Nun soll das Formular zwischen dem blinken die Farbe wechseln. Ich probiere schon laufend, bekomme das aber nicht hin. Hat jemand schon so etwas gemacht und geht das überhaupt. Der Sinn so etwas zu gestalten ist etwas seltsam, halt nur so zur Freude. Gruss ph

procedure TForm1.Timer2Timer(Sender: TObject);

begin

Form1.Visible := not Form1.Visible;

end;

[Patrick Sack]

Hi,...

if not Form1.Color = clred Then

Form1.Color := clred

else

Form1.Color := clgreen;

MfG
P

[Peter Hennek]

Hallo,
so weit wahr ich auch schon, denn wird die Procedure unten ausgeführt so wird nur beim Start der Procedure der WertForm1.Color beim ersten Durchlauf angesprungen. Danach nicht mehr, Warum? Eigendlich müßte das doch funktionieren. Weißt Du nochmal Rat.

Danke ph

procedure TForm1.Timer2Timer(Sender: TObject);

begin

Form1.Visible := not Form1.Visible;

if not Form1.Color = clred then

Form1.Color := clred

else

Form1.Color := clgreen;

end

[Falk Prüfer]

Hi,

kleiner Denkfehler - immer wenn das Form Grün ist dann ist es wegen Form1.Visible := not Form1.Visible; in der gleichen routine auch unsichtbar. Also vorher noch Visibility abfragen:
if Form1.Visible then <br>
begin<br>
if not Form1.Color = clred then <br>
Form1.Color := clred <br>
else <br>
Form1.Color := clgreen; <br>
end; <br>
end;<br>

Frohe Weihnachte

[Patrick Sack]

<br>Hi,...
<br>
<br>dem schließe ich mich an
<br>
<br>MfG
<br>P

[Peter Hennek]

Hallo,
bin schon ganz wirr, aber jetzt blinkts wie gewünscht. Vielen Dank.
Frohe Weihnachten p