acceder a todos pero modificar algunos...

[Alfredo]

Hola a todos, estoy teniendo problemas para modificar ciertas propiedades en algunos com ponentes.... Me explico con el objetivo:

En un formulario con varios controles (Memos, edits y botones) deseo que al pulsar el boton 'Cancelar' se limpien los Tedits; Son varios con nombres expecificos.. edNombre; edEtc... (seria mas sido mas facil si no hubiera puesto nombre)
Estoy tratando con esta rutina:

label1.caption:='';
label2.caption:='';
memoDatos1.Lines.Clear;
memoDatos2.Lines.Clear;

for i:= 0 to form2.ComponentCount-1 do
   c:= (form2.Components[i].Name) as string;
         if Form2.Components[i] is tEdit then
              begin
              (FindComponent((form2.Components[1].Name)) as tedit).Text;
              c.Text:='';
         end;
end;

Pero compila. Me a presentado varios errores: en principio con conversiones pero lo ultimo es que ¿¡que no tengo definido FindComponent!?.. No entiendo muy bien lo que pasa quiza estoy aplicando mal el procedimiento o la lógica, ... Quiza me puedan dar un empujon.....

Un millon

[andres1569]

Hola, no entiendo algunas asignaciones, como esa que haces de:

c:= (form2.Components[i].Name) as string;

¿"c" es una vraible tipo string o tipo TComponent o tipo TEdit ...? Como luego haces c.Text := '';

Tampoco entiendo que luego busques de nuevo, usando FindComponent, un componente al que ya estás accediendo mediante el array Components.

Para no extenderme más prueba a ver si es esto lo que andas buscando:

Código Delphi [-]
for i:= 0 to form2.ComponentCount-1 do
  if Form2.Components[i] is TEdit then
   TEdit(Form2.Components[i]).Text := '';

Saludos

[[Ohcan]]

Hola Alfredo

Yo hago algo así, parecido, pero en TTabSheet.
Te pongo un ejemplo:

Código Delphi [-]
procedure Limpiar;
var
  I:Integer;
  Control:TControl;
begin
  for I := 0 to From1.ControlCount-1 do  //Uso ControlCount no ComponentCount
    begin
      Control:= PaginaActual.Controls[i];
      if Control is TEdit then TEdit(Control).Text := '';
    end;
end;

Simplemente nos recorremos el Form (en este caso) y cuando encontramos un TEdit (o lo que sea), lo "limpiamos"... ¡Ah! si necesitas saber el nombre: TControl(Control).Name

Espero que te sirva...

Salu2

[Alfredo]

WUW...

Por algo asi comence pero se me fue poniendo escamoso.....
y me fui enredando cada vez mas en el proceso... je je

Una vez mas Gracias Andres .... funciona a la perfección con todos los controles del form, incluso con los que estan en paneles diferentes....

[Alfredo]

Gracias Ohcan, esta fino, te lo agradezco tambien.... solo que cuando hice las primeras pruebas use Controls en vez de components y me modificaba el text pero no de todos los paneles¿?

Muy agradecido de verdad....

[[Ohcan]]

Bueno... no sabía que tenías paneles... pero eso es sencillo...

puedes usar recursividad....

Código Delphi [-]
procedure Limpiar(Padre:TObject);
begin
  (...)
  if Control is TPanel then Limpiar(Control);
  (...)
end;

o algo por el estilo (que estoy escribiendo de memoria...