Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Obtener información de los controles de un formulario (https://www.clubdelphi.com/foros/showthread.php?t=26923)

MadRoberto 07-11-2005 23:00:03

Obtener información de los controles de un formulario
 
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 07-11-2005 23:53:07

Saludos
Cita:

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?:confused:
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 08-11-2005 00:19:09

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 08-11-2005 00:32:59

Gracias
 
Gracias.

:)

Neftali [Germán.Estévez] 08-11-2005 10:19:35

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


La franja horaria es GMT +2. Ahora son las 21:13:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi