verschiedene label mittels variable ansteuern/eigenschaften ändern

[DeddyH]

Beispiel mit Standardbenennungen (war zu faul, ist ja auch nur ein Beispiel):

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FLabels: array[1..10] of TLabel;
  public
    { Public-Deklarationen }
  end;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := Low(FLabels) to High(FLabels) do
    FLabels[i].Font.Color := clRed;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  for i := Low(FLabels) to High(FLabels) do
    FLabels[i].Font.Color := clGreen;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FLabels[1] := Label1;
  FLabels[2] := Label3;
  FLabels[3] := Label4;
  FLabels[4] := Label5;
  FLabels[5] := Label7;
  FLabels[6] := Label8;
  FLabels[7] := Label10;
  FLabels[8] := Label12;
  FLabels[9] := Label16;
  FLabels[10] := Label1;
end;