FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Pasar una Clase por parametro
Buenas mis amigos delphiteros, tengo una consulta un tato extraña pero con fe de que alguno de ustedes me la puedan responder. Les explico más o menos qué es lo que quiero hacer así entienden el tema.
Lo que yo quiero hacer es un procedimiento al cual yo el pase por parámetro una clase y en este procedimiento ejecutar la misma. Dicho de otra forma y más directo con lo que quiero hacer es un procedimiento que le pase por parámetro una clase de tipo TForm y dentro de este método ejecutar un método de clase. Bueno espero haber sido bastante claro con la consulta, desde ya agradezco cualquier tipo de ayuda. |
#2
|
||||
|
||||
Hola, supongo que necesitas pasar la instancia de una clase como parámetro y no la clase, bueno si es así, debes definir el parámetro con el tipo de la clase:
Recuerda incluir las units donde tienes definidas los forms o las clases que quieres pasar como parámetros. Espero sea de ayuda. Saludos. |
#3
|
||||
|
||||
Hola.
Si no entiendo mál lo que buscas, por ejemplo sería:
Ejemplo de llamada: Si desearas que el procedimiento pueda recibir cualquier clase tendrías que declarar el argumento del procedimiento de tipo TClass. Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 24-05-2011 a las 17:21:19. |
#4
|
||||
|
||||
Cita:
Gracias. |
#5
|
||||
|
||||
Hola Young.
El tipo se denomina referencias de clase, en sí son punteros a tablas de métodos virtuales. Y una de las muchas aplicaciónes prácticas es precisamente la creación de ventanas. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 24-05-2011 a las 18:19:25. |
#6
|
||||
|
||||
Hola de nuevo.
Creo que me quedé corto con la explicación anterior sin dar ni un mísero ejemplo... Ejemplos para encapsular la creación/muestra de diferentes tipos de ventanas:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#7
|
||||
|
||||
Cita:
Saludos. PD: El post no era mio, pero le he sacado buen provecho. |
#8
|
||||
|
||||
Ya que te enganchaste con el tema, te comento otro recurso: Métodos de clase.
Los métodos de clase se aplican a una referencia de clase a diferencia de los métodos aplicados a la instancia de una clase. Y seguimos con las ventanitas... Form1:
Form2: (Fijate la diferencia en la declaracion class function o class procedure, con la de un método normal de instancia de clase) En el ejemplo puse las propiedades ModalResult de los BitBtns a mrOk y mrCancel respectivamente para capturar como salió de Form2, en Form1. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 24-05-2011 a las 19:33:37. |
#9
|
||||
|
||||
Amigo ecfisa a modo de cultura general...
1. ¿Desde que versión de delphi se introdujieron estos métodos de clases y referencias de clases? 2. ¿El método de clase se puede usar instanciado? 3. ¿Que diferencia tienen con los métodos estáticos? Saludos. Última edición por Young fecha: 24-05-2011 a las 20:29:03. Razón: Otra pegunta.. :) |
#10
|
||||
|
||||
Hola.
El compañero Al, me ha hecho una observación sobre un error que cometí al tipear una línea de código:
Lo correcto es:
Mis disculpas si la confusión le acarreó dolores de cabeza a alguien y mi agradecimiento a Al por avisarme prontamente del error, ya que la idea es que los ejemplos ayuden a simplificar el entendimiento y no que lo compliquen más... Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 24-05-2011 a las 21:16:38. |
#11
|
|||
|
|||
Respuesta
Lo que yo quiero hacer es algo mas o menos parecido pero no es del todo eso, adjunto el código de lo que hago que no me funciona. El procedimiento en si hace varias cosas más yo deje solamente la parte que no me funciona y me interesaria que me ayuden. Espero ser mas claro
Para despues llamar a la ejecución de un form de la siguiente manera EjecutarForm(TfrmVenta); Última edición por ecfisa fecha: 24-05-2011 a las 21:36:37. |
#12
|
||||
|
||||
Cita:
Según tengo entendido: 1. No lo sé. 2. Se puede usar sin necesidad de instanciar la clase. 3. Ninguna, los métodos de clase son estáticos. Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#13
|
|||
|
|||
Hola...
Cita:
Por que así como lo pones, para empezar, la palabra reservada inherited solo tiene uso en métodos de la clase que son override, no en simples procedimientos. Otro error que veo es el uso de la variable Self, que también solo tiene uso dentro de algún método de una instancia de una clase (o como referencia a un tipo de clase dentro de un método de clase). Saludos... Última edición por maeyanes fecha: 24-05-2011 a las 21:41:40. |
#14
|
|||
|
|||
Hola...
Cita:
Y compila y se ejecuta perféctamente. Saludos... |
#15
|
|||
|
|||
El error que me tira es el siguiente
FMainGeneral.pas(1705): Incompatible types: 'TfrmVenta' and 'Class reference' |
#16
|
||||
|
||||
No estas confundido maeyanes.
Creo que la aplicación que estoy tecleando y el deseo de cumplir lo mejor posible con los foros, me están reclamando un descanso Si me hubiera detenido un momento a pensar habría recordado al constructor Create que puede ser virtual y de echo es un método de clase... Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#17
|
|||
|
|||
Pregunta de otra forma
¿como pasar como parametro una referencia de una clase en delphi? yo creo que esa es la pregunta correcta.
|
#18
|
|||
|
|||
Hola...
Como bien ya ha explicado ecfisa más arriba:
Saludos... |
#19
|
|||
|
|||
Probe con la respuesta que me diste pero sigo con el mismo problema, me sigue tirando el mismo error
[Error] FMainGeneral.pas(1706): Incompatible types: 'TfrmForm' and 'Class reference' Cita:
|
#20
|
|||
|
|||
Hola...
¿Puedes copiar el código completo del procedimiento/método así de cómo haces la llamada al mismo? Saludos... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Pasar mi clase a una clase de 3 capas o lo mas parecido | elarys | OOP | 2 | 07-04-2011 23:02:54 |
Pasar datos a una clase de un WS | gcaffe | Internet | 1 | 17-12-2010 16:42:52 |
¿¿Es posible pasar una clase como parámetro con el modificador var?? | PaFernan99 | OOP | 3 | 09-02-2009 18:49:00 |
Pasar parametro a una sentencia sql | molinero1 | SQL | 23 | 12-04-2007 17:55:22 |
pasar parametro | pharaonhx | Conexión con bases de datos | 3 | 10-05-2006 19:02:50 |
|