Ver Mensaje Individual
  #1  
Antiguo 06-12-2004
sharky sharky is offline
Registrado
 
Registrado: dic 2004
Ubicación: n todos lados donde exista una compu
Posts: 8
Reputación: 0
sharky Va por buen camino
Question Accesar a las propiedades de otros objetos

F1....

Tengo un problemilla....

Estoy haciendo un procedimiento para validar datos desde una forma; para posteriormente llamarla desde cualquier otra y poder verificar que los datos que yo pida esten correctos; cada forma tiene un número distinto de objetos, los únicos que valido son los TEdit(que no estén vacios, que escriban letras cuando deban hacerlo, etc), TComboBox, etc. ya pase el formulario por valor: Procedure Validar (sender : TObject); ya puedo accesar a la lista de componentes con un for : For I := 1 to (Sender as TForm).Componentcount -1 Do

y ya puedo separar cada uno de los componente con ClassName , pero ahora el problema es que yo quiero modificarle la propiedad color (por ejemplo) al componente (Sender as TForm).Components[i] y no puedo...

Ya intenté declara una variable igual a al tipo de objeto que deseo modificar :
Edit := TEdit.Create((Sender as TForm).Components[i])
y se crea el objet, pero no puedo modificar el valor .....


Alguien tiene una propuesta....



F1..... PLIS....


ATTE

Sharkenstein ______/(
( (

P.D. Mil disculpas si está un poco extenso el texto, pero creo necesario explicar todo el contexto....

THNKS
Responder Con Cita