Obtener información de los controles de un formulario

[MadRoberto]

Hola.

Me gustaría saber como puedo recorrer los controles de un formulario e ir obteniendo las propiedades de cada uno.

Tengo un ejemplo que realice en Visual Basic, y quiero aplicar lo mismo en Delphi, espero sirva de algo.

Gracias.


//Ejemplo
For Each MiObjeto In Me
If TypeOf MiObjeto Is CommandButton Then 'COMMANDBUTTON
'Instruccion
ElseIf TypeOf MiObjeto Is CheckBox Then 'CHECKBOX
'Instruccion
ElseIf TypeOf MiObjeto Is ComboBox Then 'COMBOBOX
'Instruccion
ElseIf TypeOf MiObjeto Is Frame Then 'FRAME
'Instruccion
End If
Next

[vtdeleon]

Saludos

Empezado por MadRoberto

Me gustaría saber como puedo recorrer los controles de un formulario e ir obteniendo las propiedades de cada uno.

Las propiedades o el tipo de objeto (o componente) que es?
Para recorrer los componentes que un form tiene:

Código Delphi [-]
var
  n:Integer;
begin
  for n:= 0 to Form1.ComponentCount-1 do
  begin
    ShowMessage(Components[n].ClassName);
  end;

end;

Suerte

[ContraVeneno]

Y una vez que sepas de que clase es, para las propiedades harías algo así como:

Código Delphi [-]
For .... etc
 if (Components[i] is TEdit) then begin
           TEdit(Components[i]).Text:='';
 end; //if component is edit
end; //for

[MadRoberto]

Gracias.

[Neftali [Germán.Estévez]]

Otra opción puede ser utilizar RTTI; Aquí tienes la función para hacerlo,