Løkke med objekter

Der er en property på formen der hedder components[] du kan også tilgå dine obj med navn som en tekststreng, det gør du ved at bruge :

TButton(FindComponent('Button'+IntToStr(I))).Width := 1;

/Martin

Har du dine buttons i et array eller hvordan? Hvis de er i et array så er det jo bare at gøre som du selv skriver:

for i:=2 to 5 do
  button[i].width:=1;

Hvis dine buttons er på en form, og måske på flere paneler og andet så skal der en rekursiv procedure til at løbe dem igennem.

Nej bare sådan :

for I := 0 to antal do
  TButton(FindComponent('Button'+IntToStr(I))).Width := 1;

Her er f.eks. en procedure som gennemløber alle TButtons og TLabels på din form eller andet og ændre Caption, det er uanset om din button eller label befinder sig direkte på formen eller på f.eks. et panel eller en groupbox.

procedure DoIt(WinC : TWinControl);
var
  i : integer;
begin
  for i:=0 to WinC.ControlCount-1 do
  begin
    if WinC.Controls[i] is TButton then
    (WinC.Controls[i] as TButton).Caption:='jowjow';
    if WinC.Controls[i] is TLabel then
    (WinC.Controls[i] as TLabel).Caption:='Så det';

    if WinC.Controls[i] is TWinControl then
    DoIt(WinC.Controls[i] as TWinControl); //rekursiv kald
  end;
end;

------------

begin
  DoIt(Self);
end;

Martins metode blev brugt :)Men tak til jer begge :)