Recorrer todos los componentes de un formulario

Artículo por Club Developers · 31 diciembre 2005

5220 vistas

Para recorrer todos los componentes de un formulario es necesario usar el array Components[] del formulario. El operador Is permite determinar si el componente es del tipo deseado.

Por ejemplo, para poner 'AAA' en todos los TLabels de un formulario procederÃamos de la siguiente manera



delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   i:Integer;
  4. begin
  5.   for i := 0 to ComponentCount-1 do
  6.     if Components[i] is TLabel then
  7.       TLabel(Components[i]).Caption := 'AAA';
  8. end;