Ver Mensaje Individual
  #9  
Antiguo 13-09-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
¡Ah! Ok. Di por sentado que el código estaba dentro del mismo formulario. Entonces a tu función puedes pasarle como parámetro el formulario deseado:

Código Delphi [-]
procedure HazAlgoConLasComponetesDeUnFormulario(F: TForm);
begin
  for i:=0 to (F.ComponentCount-1) do
  begin
    if F.Components[i] is TControl then
      with TControl(F.Components[i]) do
      begin
        {
          Aquí ya puedes acceder a las propiedades específicas de TControl
          y sus descendientes, entre las que se cuentan Top, Left, Visible, etc.
        }
      end;
  end;
end;

// Saludos
Responder Con Cita