Die Farbe von TLabel mit einem Click ändern ?

[smart]

Hallo Alle zusammen!
Ich möchte die Farbe mehrer TLabel auf einer Form mit einem Click ändern und habe mir folgende procedure geschrieben. Leider klappt die Sache nicht. Was mache ich falsch?

Delphi-Quellcode:

procedure TForm1.MyLabel(var Farbe: Integer);
begin
With TLabel do
begin
     Color := Farbe;
     end;
end;


//Aufruf
procedure TForm1.Button1Click(Sender: TObject);
Var
Farbton: Integer;
begin
Farbton := 59233;
MyLabel(Farbton);
end;

[malo]

Versuch mal den Integer-Wert mit IntToColor zu konvertieren ;)

edit: ungetestet!

edit2: Und bist du dir sicher, dass dein Label auf "TLabel" heißt? Eventuell musst du das noch in "Label1" ändern :zwinker:

[Pr0g]

Warum nutzt du nicht direkt TColor? Und das "With...Do" kannst du dir bei einem Befehl auch sparen.

MfG Pr0g

[Nils_13]

@malo: Wieso ? Sie will doch alle Farben ändern :zwinker:

@smart: wenn man ermittelt, wie viele labels es gibt und dann die farben nur noch abändern.

[smart]

Ja, ich habe den Fehler: Instanz-Variable 'Color' in diesem Zusammenhang nicht verfügbar. Viel kann ich mit diesem Fehler leider nicht anfangen.

[BenjaminH]

Versuchs mal so

Delphi-Quellcode:

procedure TForm1.MyLabel(var Farbe: Integer);
Var i:Integer;
begin
  for i:=0 to COmponentCount-1 do
    If Components[i] is TLabel Then
      TLabel(Components[i]).Color := Farbe;
end;

[Pr0g]

Du greifst auch einfach nur auf die Klasse TLabel zu und nicht auf eine spezielle Instanz, das geht natürlich nicht. Schreib folgendes in den private-Abschnitt deiner Form:

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    procedure ChangeLabelColors(const AColor: TColor);

Dann die Implemetierung der Prozedur:

Delphi-Quellcode:

procedure TForm1.ChangeLabelColors(const AColor: TColor);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TLabel) then
      (Components[i] as TLabel).Font.Color := AColor;
end;

Ich habe jetzt mal Font.Color genommen, da du warscheinlich die Schrfitfarbe und nicht die Hintergrundfarbe ändern willst. Aufrufen kannst du das ganze dann so:

Delphi-Quellcode:

ChangeLabelColors(clNavy);

Edit: @BenjaminH: Warum machst den Parameter als "var"?
Edit2: Achso, das war ja oben schon.

MfG Pr0g

[smart]

@BenjaminH und @Pr0g vilen Dank für Euere Mühe. Es klappt beides. Ich hatte vergessen die Komponenten zu zählen, wenn ich dass richtig begriffen habe.

[Binärbaum]

Zitat:

Zitat von Pr0g

Edit: @BenjaminH: Warum machst den Parameter als "var"?
Edit2: Achso, das war ja oben schon.

Das var kann man in dem Fall auch weglassen, da ein Wertparameter auch reicht. Wenn man aber möchte, kann man stattdessen const verwenden.

MfG
Binärbaum

[Pr0g]

Zitat:

Zitat von Binärbaum

Das var kann man in dem Fall auch weglassen, da ein Wertparameter auch reicht. Wenn man aber möchte, kann man stattdessen const verwenden.

Schon klar, habe ich ja oben im Code auch gemacht. Hatte mich nur gewundert , warum er es als "var" hatte (gerade weil es keinen Sinn machte), dann aber gesehen, dass er warscheinlich einfach den Code aus dem ersten Post übernommen hatte.