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
|
|||
|
|||
Usar eventos en un VCL
Tengo diseñado una primera versión funcional de un TRichEdit que reconoce la sintaxis de lo que se esta escribiendo y resalta mediante el formato del texto escrito diversas secciones del texto. Se me ocurrió que con este código podría crear un componente VCL para poder usarlo en otros proyectos. Pero no he conseguido realizar una buena gestión de los eventos. Me explico:
En mi componente uso eventos como OnSelectionChange y OnChange, pero el en VCl no sé muy bien como hacer uso de esto. Ya que si suplanto el manejador del evento, el usuario final de mi componente no podrá usarlo. La solución que encontré fue suplantar el proceso WndProc y esperar a recibir un mensaje concreto (que sinceramente no se cuál es 45109) pero, a partir del cual puedo compobar si el usuario final ha colocado un manejador de evento, si es así tomo la dirección de este manejador y lo suplanto por una función propia que ejecuta el código que yo necesito y posteriormente usa el puntero para llamar a la función del usuario. Me pareció una buena solución, de hecho es justo lo que necesito, pero lo que no sabía es que el componente VCL se ejecuta cuando estás en fase de diseño de la aplicación, borrando la casilla del inspector de objetos en la se pone el nombre de la función que el usuario quiere que responda. En principio se comporta bien pero si guardas el proyecto ya se guarda con esa casilla borrada y mi componente piensa que el usuario no ha asignado ninguna funcion y por tanto solo ejecuta la interna. Por favor, cualquier idea al respecto me resultará útil. Gracias |
#2
|
||||
|
||||
Dos cosas:
-Dices que quieres hacer que tu componente sea VCL... ¿Ahora no lo es?¿entonces qué es? -Si te he entendido bien, todo funciona Ok excepto la asignación del evento.. ¿por qué no nos pones el código donde lo haces y vemos si hay algun problema?
__________________
E pur si muove |
#3
|
||||
|
||||
Sonic, creo que el propio delphi puede sacarte de ese apuro, por supuesto tambien un buen manual de POO, pero bueno, al grano.
inserta un combobox (por ejemplo) en un form, y despues en la zona de declaración: mantén la tecla CTRL presionada y pulsa en lo subrayado.
Así accedes a la declaración del combobox. Verás que ese combo hereda de TCustomComboBox, que tambien tiene eventos con el mismo nombre y que hace un override de esos métodos. Creo entender que es lo que necesitas, pero la creación de componentes es una tarea árdua si no se tienen los conocimientos. (hay monton de cursillos en internet sobre ello, pero se necesita tiempo). Una alternativa rápida para reutilizar componentes es crear un TFrame o un Component Template. Saludos |
#4
|
|||
|
|||
Supongo que no me explicado muy bien, suele ocurrirme a menudo, es que aprendí builder por mi cuenta y es muy probable que no esté usando los términos correctos, veras:
Cuando digo que mi componente lo quiero hacer VCL lo que quiero decir es que lo quiero incrustar en las barras de herramientas, ahora mismo lo tengo en la barra Samples (lo llamo TSRichEdit y hereda obviamente de TRichEdit), disponible para poder ser arrastrado a la aplicación de cualquier usuario. Según tenía entendido eso es un componente VCL, pero ya te digo si no es así agradecería una aclaración. Mi problema no es la asignación del evento, para asignarlo uso órdenes como: Puntero_a _funcion_de_usuario =OnSelectionChange; OnSelectionChange=MiFuncion; Y el evento se asigna correctamente. Lo que yo quiero es que mi componente, cuando alguién lo "pegue" en su aplicación responda al evento OnSelectionChange, primero mediante mi funcion y despus mediante la que él tenga especificada en el Inspector de Objetos. Para ello, la última linea del código de MiFuncion es : Puntero_a _funcion_de_usuario (Owner); Y así se ejcuta primero mi función y luego la del usuario. Y ahora cuento de nuevo el problema: Cuando, como usuario, del Componente VCL abro un proyecto, que contiene ese nuevo componente, pegado desde la barra de herramientas Samples. Éste entra en estado de ejecucíón (en la versión anterior del componente, la que no está integrada en la barra SAMPLES no se ejecuta el código del componente hasta que no se ejecuta el proyecto completo por eso me refiero a uno como VCL (Visual Component Library) y al otro como componente o clase a secas). Al ajecutarse el código del componente se llega a las lineas: Puntero_a _funcion_de_usuario =OnSelectionChange; OnSelectionChange=MiFuncion; En concreto la última borra automáticamente en el inspector de objetos la casilla donde antes ponía SRichEdit1SelectionChange (por ejemplo) y me la deja vacía. La función SRichEdit1SelectionChange sigue existiendo en el código pero el vículo se ha roto. Cuando posteriormente le doy a ejecutar, la aplicación se ejecuta sin problemas, ya que el componente tiene capturada la dirección de la funcion del usuario (SRichEdit1SelectionChange). Pero, si guardo el proyecto, esta vez se guarda sin el vículo a la función de usuario (es decir con la casilla del Inspector de Objetos vacía). De modo que al cerrar y abrir el proyecto otra vez, cuando mi componente va a guardar en la variable Puntero_a _funcion_de_usuario la dirección de la funcion de usuario que atiende a OnSelectionChange se encuentra con que esta dirección es NULL (el vínculo hora no existe) y posteriomente cuando se ejecuta el proyecto completo al producirse el evento OnSelectionChange solo se ejecuta mi función y no la del usuario pese a que está esta escrita. Espero que esta vez haya quedado un poco más claro que es lo que quiero hacer y cuál es mi problema, y espero que ahora sí me podaís ayudar. Gracias |
#5
|
|||
|
|||
Muchas gracias Lepe ya he mirado muchos manuales y creo haberlos entendido, lo que quiero hacer es algo parecido a lo que me comentas del override. Lo que en realidad quiero es que mi manejador de evento se ejecute siempre, ponga o no ponga el usuario uno propio, por eso hago el override pero al final en mi función (la propia) hago una llamada a la función del usuario.
Creo que en mi post anterior te puede quedar un poco más claro lo que quiero, no obstante cualquier alternativa es de considerar, a si que te agradecería que me explicaras un poco mejor lo del TFrame y el Component Template, pero te aviso que es impresindible que se pueda disponer de mi componente en la barra de herramientas. Muchas Gracias |
#6
|
|||
|
|||
Aunque te ponga código Delphi espero que lo entiendas
El ejemplo muestra como lanzar (en un TDbGrid) el evento OnCellClick siempre (y si lo tiene, luego el del usuario).
Espero te sirva |
#7
|
||||
|
||||
Cita:
Cita:
__________________
E pur si muove |
#8
|
|||
|
|||
mmmm, Marto, perdona, pero..... de esta manera creo que no saltará el evento si no lo tiene asociado en el componente, no?
PD: lo digo con la voca xica, que no lo he probado |
#9
|
||||
|
||||
Cita:
__________________
E pur si muove |
#10
|
|||
|
|||
Estimado Cadetill:
He respasado el código Delphi aunque no estoy muy ducho en la sintaxis de Delphi creo que es exáctamente lo que yo hago. Pero me alegra ver que ya más o menos se sabe por donde van los tiros. Pego a continuación mi código: Código:
//--------------------------------------------------------------------------- // ValidCtrCheck is used to assure that the components created do not have // any pure virtual functions. // static inline void ValidCtrCheck(TSRichEdit *) { new TSRichEdit(NULL); } //--------------------------------------------------------------------------- __fastcall TSRichEdit::TSRichEdit(TComponent* Owner) : TRichEdit(Owner) { ExOnSelectionChange=false; Primer_evento=false; } //--------------------------------------------------------------------------- namespace Srichedit { void __fastcall PACKAGE Register() { TComponentClass classes[1] = {__classid(TSRichEdit)}; RegisterComponents("Samples", classes, 0); } } //--------------------------------------------------------------------------- void __fastcall TSRichEdit::WndProc (Messages::TMessage &Message) { if (!Primer_evento) { { Primer_evento=true; if (OnSelectionChange!=NULL) { ExOnSelectionChange=true; FExOnSelectionChange=OnSelectionChange; } OnSelectionChange=FInOnSelectionChange; ShowMessage("Hola quillo 0"); OnSelectionChange=FExOnSelectionChange; } } TWinControl::WndProc(Message); } //--------------------------------------------------------------------------- void __fastcall TSRichEdit::FInOnSelectionChange (TObject *Sender) { ShowMessage("Hola Quillo 1"); if (ExOnSelectionChange) FExOnSelectionChange(Owner); } //--------------------------------------------------------------------------- Te dejo el código por si puedes darme alguna pista Gracias Última edición por marto fecha: 27-05-2004 a las 13:20:58. |
#11
|
|||
|
|||
Guau! He ido a desayunar, no me esperaba que respondiérais tan rápido, muchísimas gracias. Respondo a Marto, diciendo que no se me había ocurrido esa forma de implemetar mi función, entre otras cosas porque desconocía el siginificado de Inherit;.
Voy a intentar hacer una traducción a Borland y a ver que pasa, No creo que tarde más de 15 minutos. Por cierto aun no se si lo que hago es un VCL o un template, por favor si puedes aclararmelo o direccionarme a alguna página te lo agradecería. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|