Ver Mensaje Individual
  #2  
Antiguo 21-02-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.110
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Nada te impide recorrer los componentes de un determinado panel, o sea, algo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: integer;
begin
  for i := 0 to Self.ComponentCount-1 do
  begin
    if (Self.Components[i] is TPanel) then
    begin
      for j := 0 to Self.Components[i].ComponentCount-1 do
      begin
        if (Self.Components[i].Components[j] is TEdit) then
        begin
          {
            Aquí podrías acceder al valor del TEdit:

            TEdit(Self.Components[i].Components[j]).Text
          }
        end;
      end;
    end;
  end;
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita