FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Form.Components como Parametro
Hola a todos!!!
Siguiendo con la consulta que realice hace un par de días atrás, sobre como colorear los componentes según el estado del dataset, ahora surgió una nueva duda Link del Post Anterior: Colorear Componentes Según el Estado de DataSet Introducción: Para colorear los componentes de un Form o un Frame resolví realizarlo en el evento StateChange del DataSource enlazado al dataset en cuestión... Código:
Y hasta aca todo barbaro, pero me dí cuenta que si hacia esto en todos los formularios y después quería cambiar el color, tendría que ir uno por uno cambiando los colores, entonces decidí hacer una procedimiento en común donde esta el código que necesito y simplemente desde el StateChange llamar a ese procedimiento. El procedimiento me quedo así:
El problema: El problema es que al compilar me da un error en la llamada al procedimiento:
Error: Cita:
Como puedo pasar los componentes de un Form como parámetro al procedimiento? Desde ya gracias por la ayuda, espero que no se cansen leyendo la introducción.... Saluda Atte Neeruu!!!
__________________
Saluda Atte Neeruu!!! :) Última edición por Neeruu fecha: 23-09-2011 a las 16:02:49. Razón: En la declaración de parametros del Procedimiento decía: myComponents:TClass y es myComponents:TComponent |
#2
|
||||
|
||||
Hola,
Parece que el primer argumento habría de ir entre "corchetes" "[]" (no sé si funcionaría). Por lo demás, yo optaría por pasar una referencia al formulario de marras, en lugar de a sus componentes. De hecho no creo que "Form1.Components" encaje con el tipo "TComponent". Además si pasas la referencia al formulario te ahorrás el argumento "ComponentCount", puesto que podrás obtenerlo del propio formulario. |
#3
|
|||
|
|||
Form.Components como Parametro
Hola Dec!!!
Si pensé eso, pero como hago para poder pasar Formulario y Frame? Hay veces que tengo los componentes sobre el Formulario y otras los tengo en un Frame. Entonces, Como debería quedarme el tipo de parámetro y como debería leerlo para que esto me sea indistinto a la hora de recuperar los componentes en el procedimiento? Podría ser pasarlo como TClass y en el procedimiento preguntar que tipo de clase es y según eso leerlo con el tipo que corresponda??? Saluda Atte Neeruu!!!
__________________
Saluda Atte Neeruu!!! :) |
#4
|
|||
|
|||
no tengo el delphi a la mano, cuestion de revisar pero segun recuerdo el formulario y frame tienen un ancestro comun y creo que es TCustomForm, si es asi, no necesitarias irte tan atras como el TClass
|
#5
|
||||
|
||||
Hola.
Coincido con lo que te han sugerido dec y luisgutierrezb. Probá de este modo:
Llamadas: No uso los componentes Tcx, por lo que tendrías que probar si el código funciona con ellos, aunque supongo que debería... Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 24-09-2011 a las 01:12:24. |
#6
|
|||
|
|||
Se podría Utilizar ClassType?
Hola amigos del club delphi:
Hace tiempo que programo en este lenguaje tan genial y ahora tengo un problema algo parecido a lo que tratan en este foro, y al no haber visto la manera de ingresar un nuevo tema (no me acuerdo como se hacia) recurro a ustedes de esta manera, espero que me disculpen la intromisión: El problema que tengo es el siguiente: Tengo un procedimiento implementado que hace parpadear un componente tcombobox, y lo hice de la siguiente manera:
A este procedimieto lo llamo desde otro lado del programa por ejemplo así: parpadear(Combobox1,clyellow); //aqui ComboBox1 es un TComboBox lo que hace parpadear color amarillo al combobox1 que esta en mi forma; hasta aqui todo funciona ok, pero también tengo otro tipo de componentes, tipo tedit, tcurrentedit, tmemo, etc., en mi forma y para que cada uno parpadee según el caso debo copiar exactamente el codigo anterior, variando simplemente las líneas de if sender is TComboBox then //y with sender as TCombobox reemplazando el tipo con lo que corresponda al paramentro enviado. He intentado eliminar la linea de "if" y utilizar la siguiente forma: With sender as sender.ClassType do pero aunque no provoca error, tampoco se logra visualizar el efecto deseado (el componente parametro no cambia de color). PREGUNTA: ¿cómo puedo utilizar el procedimiento parpadear, en todos los componentes sin tener que aplicar polimorfismo propiamente dicho? (sin sobrecargar el procedimiento parpadear ni repetir el resto del código para cada clase de objeto que sea descendiente de tcontrol). Si a alguien se le ocurre alguna forma de que la línea de codigo With sender as sender.ClassType do funcione como deberia, por favor le agradeceria que me de luces. Mil gracias. Última edición por Casimiro Notevi fecha: 15-05-2012 a las 17:01:35. |
#7
|
||||
|
||||
Recuerda poner los tags al código fuente, ejemplo:
Gracias |
#8
|
||||
|
||||
Hola xorc.
Primero te comento que estas líneas son redundantes: Mejor sería:
Ahora, para que el procedimiento se le pueda aplicar a diferentes controls yo usaría RTTI:
Ejemplo de llamadas:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#9
|
|||
|
|||
Excelente!!!.
ecfisa, es precisamente lo que estaba tratando de hacer. No conocia lo del RTTI pero me acabas de abrir los ojos hacia una funcion que me será utili en muchas otras funciones. Gracias y sigan ayudando a los que consultamos. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Stack OverFlow al pasar parametro en el constructor de un Form | Mialom | C++ Builder | 12 | 18-02-2008 18:08:23 |
Solucionado el Form como parámetro | pascalutn2003 | Varios | 0 | 24-08-2006 04:02:10 |
Form como parametro | pascalutn2003 | Varios | 2 | 22-08-2006 23:55:07 |
Pasar un parametro en la llamada a un form | apicito | OOP | 17 | 13-08-2003 12:30:45 |
|