Formular farblich ändern

[Sir Rufo]

Zitat von milos:

Zitat von DeddyH:

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 von Rippo:

@milos

 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 von Sir Rufo:

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

[Rippo]

Delphi-Quellcode:

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

[milos]

Zitat von Rippo:

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