FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Re... .... corriendo los objetos
Hola que tal ... el tema de este hilo es facil.
Nesecito recorrer todos los objetos de un TForm, una vez que este se a creado. Para esto me hice una funcion 'Recorre(pantalla: Tform);' que lo hace. El problema se presenta en el cuando llamar a esta funcion, puesto que nesecito recorrer los elementos antes de que se pueda hacer cualquier otra cosa con ellos.... Suena sencillo, pero no encuentro el evento preciso.... Que opinan. |
#2
|
||||
|
||||
Supongo que puedes usar el evento OnCreate. Este se lanza cuando las componentes del formulario ya están creadas pero antes de mostrarse de manera que no se puede interactuar con éstas.
// Saludos |
#3
|
||||
|
||||
La verdad que mucho no te entiendo... prueba sobreescribiendo el método Loaded.
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#4
|
|||
|
|||
He probado el evento OnCreate y OnShow pero no me sirven, puesto que una de las cosas que hace la funcion, es cabiar el text de las etiquetas al encontrar una condicion dada en su objeto asociado, y estos eventos no me han dejado modificarlas.
Tambien probe con el OnActivate, pero no quiero que se recorran todos los objetos cada vez que me paro en la pantalla (por que más encima es Mdi), y con el OnPaint idem. El metodo Loaded no lo he probado aun... aunque no se como me podria ayudar.
__________________
Nada es a prueba de estupidos, ...ellos son muy creativos. |
#5
|
||||
|
||||
Si te funciona con el evento OnActivate, no tienes más que poner una variable que haga de semáforo, para que solamente se ejecute una vez la función que recorre los objetos.
También puedes utilizar la propiedad Tag del formulario e incrementarla en 1 cada vez que se active de tal forma que la función se ejecutaría por ejemplo siempre que MiForm.Tag < 2. Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#6
|
|||
|
|||
Si tienes razon con lo de los semaforos, eso puede funcionar...
Les estoy comunicando.
__________________
Nada es a prueba de estupidos, ...ellos son muy creativos. |
#7
|
||||
|
||||
Cita:
Para usarlo declara: Código:
TForm1 = class(TForm) protected procedure Loaded; override; end; implementation procedure TForm1.Loaded; begin inherited; { Aquí tu código } end; |
#8
|
|||
|
|||
Gracias a todos los que aportaron en este tema.... la solucion gue bien simple y precisa ocupando semaforos...
__________________
Nada es a prueba de estupidos, ...ellos son muy creativos. Última edición por Anubys fecha: 19-12-2003 a las 20:06:19. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|