Blinkender Hintergrund / Farbwechsel

jmschloemer · Hält's aus hier Beiträge: 3

Hallo,
ich bin noch ziemlich unerfahren mit dem Umgang von Delphi und wurde gerne wissen,
wie ich einen Hintergrundfarbwechsel bzw. ein blinken des Hintergrundes in verschiedenen
Farben hinbekomme.
Ich habe schon im FAQ etc. gesucht aber leider keine Lösung gefunden.

Ich hoffe auf eure Mithilfe. :roll:

Moderiert von Klabautermann: Topic aus VisualCLX (Component Library for Cross Platform) verschoben am Mi 07.09.2005 um 00:44

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

Hi und

im DF!

Fenster rot machen:
Color := clRed;

Das Blinken könntest du mir einem Timer erreichen.

jmschloemer · Hält's aus hier Beiträge: 3

Danke für die schnelle Antwort könntest mir ja vielleicht einen Quellcode geben, damit das nachvollziehen kann.

Wäre echt super

azubi_20 · Verfasst: Mi 07.09.05 08:39

Du setzt die Farbe deiner Form auf einen Anfangswert, z.B. :

markieren

Delphi-Quelltext

1:	Form1.color = clRed;

Dann nimmst du einen Timer (das ist eine Komponente, die periodisch einen bestimmten Quellcode ausführt) und schreibt in das Ereignis des Timers einen Code, der den Farbwechsel bestimmt, z.B. :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

If Form1.color = clRed Then 
Form1.color := clGreen;
Else
Form1.color := clRed;
End If;

jmschloemer · Hält's aus hier Beiträge: 3

Hallo,
und vielen Dank für die schnelle Antwort.

Grüße
Malte

Klabautermann · Verfasst: Do 08.09.05 10:06

Hi,

azubi_20 hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

If Form1.color = clRed Then 
Form1.color := clGreen;
Else
Form1.color := clRed;
End If;

welche sprache ist denn das? Delphi mag z.B. keine Semikola vor dem else und ein End if ist auch nicht seine Sache

.

Gruß
Klabautermann

azubi_20 · Verfasst: Do 08.09.05 10:19

Zitat:

welche sprache ist denn das?

Ähh, ja vielleicht Delpibasic :wink:

Nee, mal im Ernst, bin da wohl ein bischen durcheinander gekommen. Das kommt davon wenn man mit Delphi, VB und ABAP gleichzeitig arbeiten muss und gerade keine IDE zum Testen da hat. :oops:

So müsste es wohl richtig sein :

markieren

Delphi-Quelltext

1:
2:
3:
4:

If Form1.color = clRed Then 
Form1.color := clGreen
Else
Form1.color := clRed;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme