Hola, a ver si me explico bien, necesito acceder a las componentes de un formulario pero no conozco el nombre de estas ni el tipo, yo lo hago de este modo, por ejemplo este trozo de codigo intenta ocultar todas las componentes de un formulario al pulsar un boton:
Código:
procedure TForm1.Button3Click(Sender: TObject);
var
NComponentes :integer;
i :integer;
clase :TClass
begin
i := 0;
NComponentes := Form1.ComponentCount;
while i < NComponentes do begin
clase := Form1.Components[i].TClassType;
with Form1.Components[i] as clase do
visible := False;
i := i +1;
end;
end;
El codigo anterior no funciona, al ejecutarse se borra el formulario en la primera iteración, y lo que yo intento es borrar las componentes de este no el formulario. ¿Alguien conoce alguna forma de acceder a los componentes de un formulario sin saber el nombre ni la clase a la que pertenecen?
Gracias de antemano
15-11-2005
Mode Lineal
