Ver Mensaje Individual
  #2  
Antiguo 21-11-2005
andressanchez andressanchez is offline
Miembro
 
Registrado: jul 2005
Ubicación: Sando Domingo, Rep. Dom.
Posts: 109
Reputación: 19
andressanchez Va por buen camino
Espero que este codigo te sirva de algo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer;
begin
   {Aquí aparece una estructura de bucle con la sentencia for.
   Sirve para repetir una operación tantas veces como se indique mediante un
   contador. En este caso el contador es i, que recorre desde 0 hasta el    número de componentes -1 que tenga el formulario; La palabra reservada do
   forma parte de la sintaxis de la estructura del bucle for.}

  for i := 0 to ComponentCount -1 do
    if Components[i] is TPanel then  //aqui se verifica el tipo de componente.
     //y con su propiedad tag se puede verficar a que fila pertenece
         if (TPanel(Components[i]).tag) = 0 then 
           begin
              {Pon tu código aqui}
           end
end;
Responder Con Cita