Farbwechsel
Es ist ein anwenderfreundliches Delphiprogramm zu erstellen, welches durch einen Klick auf je ein Radiobutton zur Laufzeit die Hintergrundfarbe verändert.
Es soll möglich sein, die Standardfarbe wieder zurück zu setzen.
Es soll nicht möglich sein, dass der Anwender eine nicht vorhandene Farbe eingeben kann, sondern er soll aus den vorhandenen auswählen.
|
|
| Komponente |
Eigenschaft |
Wert |
Bemerkungen |
| Form1 |
Caption |
'Farbenwechsel' |
Programmfenster mit den benötigten Komponenten |
| GroupBox1 |
Caption |
'Farbe des Formulars' |
Bezeichnung der GroupBox |
| RadioButton1 |
Caption |
'rot' |
OnClick: Form1.Color:=clRed; |
| RadioButton2 |
Caption |
'grün' |
OnClick: Form1.Color:=clGreen; |
| RadioButton3 |
Caption |
'blau' |
OnClick: Form1.Color:=clBlue; |
| RadioButton4 |
Caption |
'magenta' |
OnClick: Form1.Color:=$00ff00ff; |
| RadioButton5 |
Caption |
'cyan' |
OnClick: Form1.Color:=$00ffff00; |
| RadioButton6 |
Caption |
'gelb' |
OnClick: Form1.Color:=clYellow; |
| Button1 |
Caption |
'Standardfarbe' |
Aufschrift auf dem Schalter |
| OnClick |
'Button1Click' |
Prozedur, die beim Klicken ausgeführt werden soll:
RadioGroup1.ItemIndex:=-1;
Form1.Color:=clBtnFace;
|
| BitButton1 |
Kind |
'bkClose' |
Prozedur, die beim Klicken ausgeführt werden soll:
Schließen des Programmfensters |
Bemerkung: Wenn man die Radiobuttons nicht in eine RadioGroup sondern in eine GroupBox legt, hat man den Vorteil, dass in einem Formular sogar mehrere Gruppen funktionieren, in denen unabhängig voneinander etwas ausgewählt werden kann.
|
| Lösung |
|
|
|
|