Viele Komponenten schneller in den Eigenschaften ändern

[Namenloser]

Du kannst diesen Komponenten ja einen bestimmten tag zuweisen, z.b. 1. das ginge dann so:

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
var i : Integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    if (Components[i] is TButton) and (tbutton(components[i].tag=1)) then 
        TButton(Components[i]).caption := 'Klick mich';
  end;
end;

oder, wenn die Kompos alle einen Namen à la Button1 bis Button20 haben (was aber ein schlechter Stil wäre), könnte man es auch so machen:

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
var i : Integer;
   btn: TComponent;
begin
  for i := 1 to 20 do
  begin
    btn := FindComponent('Button'+inttostr(i));
    if (btn <> nil) and (btn is TButton) then 
      TButton(btn).caption := 'Klick mich';
  end;
end;