Viele Labels, viel Code?

[sir-archimedes]

Ich würde die Components-Property mit einem Panel vereinen wenn das möglich ist. Ich würde nämlich einfach ein Panel auf die Form legen und auf das Panel die Labels, die grün gemacht werden sollen. Dann würde ich via Panel.Components alle Labels durchgehen und diese einfärben.

[pszopp]

Wenn ich nicht falsch liege müsste man dann aber Panel.Controls statt Panel.Components durchlaufen,
da das Parent der Labels das Panel ist, und der Owner der Labels immernoch das Form ist.

Viele Grüße,
pszopp

[volkerw]

Und jetzt mal etwas einfaches:

Delphi-Quellcode:

Panel.Font.Color := clGreen;

Bei Komponenten, deren FontColor sich nicht ändern soll, muß dann

Delphi-Quellcode:

ParentFont := false;

gesetzt werden (Default ist true).

Gruß
Volker

[Andreas L.]

Hi,
ich würde es so machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
begin
 for i:=0 to 128 do   //128 ist die Anzahl der Labels
  begin
   (form1.FindComponent('Label'+inttostr(i)) as TLabel).font.color:=[clGreen];
  end;
end;

Ungetestet...

Aber so in etwa sollte es ausschauen.

[dcg]

Danke bis jetzt, ich werde mal verschiedene Beispiele am WE ausprobieren...

Gruß
Patrick