Formular farblich ändern

[Rippo]

Hallo
ich möchte mein formular farblich ändern weis aber nicht wie
könnt ihr mir bitte gute lösungsvorschläge geben

[DeddyH]

Im Objektinspektor die Color-Eigenschaft ändern, oder meinst Du etwas anderes?

[Rippo]

ich möchte das gerne per TButtonColor oder colorbox(oder was es auch gibt ) zur laufzeit ändern

[DeddyH]

Kein Problem, das geht ja auch zur Laufzeit, einfach die neue Farbe zuweisen.

Delphi-Quellcode:

procedure TDeinForm.KomponenteColorChange(Sender: TObject);
begin
  Color := Komponente.Color;
end;

[himitsu]

Na dann leg soeine Farb-Auswahl-Komponente auf die Form und im OnChange-Ereignis der Komponente weist du der Form den Farbwert zu.

[DeddyH]

As I said before :mrgreen:

[milos]

Geht ganz einfach :)

Delphi-Quellcode:

  Form1.Color := ColorBox1.Selected;

[DeddyH]

Wenn das innerhalb einer Methode der Klasse TForm1 ist, solltest Du das "Form1" aber weglassen oder durch "Self" ersetzen.

[milos]

Zitat:

Zitat von DeddyH (Beitrag 1297982)

Wenn das innerhalb einer Methode der Klasse TForm1 ist, solltest Du das "Form1" aber weglassen oder durch "Self" ersetzen.

Weiss ich, habs nur dran gelassen damit der TE weiss was ich damit meine, falls noch nicht so viel Erfahrung besteht.

[Rippo]

@milos

Delphi-Quellcode:

 Form1.Color := ColorBox1.Selected;

wenn ich die farbe wähle passiert nicht

[Sir Rufo]

Zitat:

Zitat von milos (Beitrag 1297990)

Zitat:

Zitat von DeddyH (Beitrag 1297982)

Wenn das innerhalb einer Methode der Klasse TForm1 ist, solltest Du das "Form1" aber weglassen oder durch "Self" ersetzen.

Weiss ich, habs nur dran gelassen damit der TE weiss was ich damit meine, falls noch nicht so viel Erfahrung besteht.

Genau, einfach mal falsch vorsagen und wenn der das dann unbedarft nachplapperrt gleich nochmal nachtreten. Bitte, wenn richtig vorsagen. Falsch/Fehlerhaft gibt es schon zur Genüge im Netz zu finden.

Ein Hinweis auf die Dokumentation ist da immer gut TForm.Color, denn dann hat man auch die Chance zu erkennen, dass das eine Eigenschaft ist, die von TControl geerbt wurde und ich somit diese Eigenschaft bei jedem TControl verwenden kann.

[DeddyH]

Wo steht denn der Code (in welchem Ereignis)?

[milos]

Zitat:

Zitat von Rippo (Beitrag 1297996)

@milos

Delphi-Quellcode:

 Form1.Color := ColorBox1.Selected;

wenn ich die farbe wähle passiert nicht

Du musst die Zeile natürlich in das OnChange-Event von der TColorBox Komponente packen.
Kannst du ganz bequem machen indem du ein TColorBox auf dein Formular ziehst, und dann ein Doppelklick drauf machst. Danach wirst du in den Quellcode geworfen wo die IDE für dich schon die Grundsachen für das Event geschrieben hat ;)
Am schluss sollte es das Event so aussehen:

Delphi-Quellcode:

procedure TForm1.clrbx1Change(Sender: TObject);
begin
  Color := clrbx1.Selected;
end;

Jenachdem musst du bei dir natürlich noch die Namen der Komponenten Anpassen.

Zitat:

Zitat von Sir Rufo (Beitrag 1297998)

Genau, einfach mal falsch vorsagen und wenn der das dann unbedarft nachplapperrt gleich nochmal nachtreten. Bitte, wenn richtig vorsagen. Falsch/Fehlerhaft gibt es schon zur Genüge im Netz zu finden.

Na gut, werd ich halt in Zukunft drauf achten, jedem Neuling die Sprache in der kompliziertesten mir bekannten Form beizubringen, Meister :roll:

[Rippo]

Delphi-Quellcode:

procedure TfrmMeins.ColorBox1Change(Sender: TObject);
begin
  Self.Color := Colorbox1.Selected;
end;

[milos]

Zitat:

Zitat von Rippo (Beitrag 1298004)

Delphi-Quellcode:

procedure TfrmMeins.ColorBox1Change(Sender: TObject);
begin
  Self.Color := Colorbox1.Selected;
end;

Der Code ist richtig, kanns sein, dass du ein Erscheinungsbild/VCL Style verwendest?

Falls ja musst du noch beim StyleElements-Property der Form seClient auf False setzen.
Edit: Wird sich aber wahrscheinlich Negativ auf das Style auswirken.

Bild angefügt.

[Rippo]

ja vielen DANK jetzt funktioniert es bei mir :)