Eventos simultáneos
Hola! Tengo una pregunta a ver si alguien me la sabe responder:
En un Form tengo una barra TScrollBar, con su evento OnChange programado para que al pulsar y arrastar esta barra se realiza la actualización de unos valores en función de la propiedad Position de la misma. En el mismo formulario tengo un TApplicationEvent, con su evento OnMessage programado para que cuando llega un mensaje se realice una tarea. ¿Cómo podría hacer para que, mientras estoy pulsando y arrastrando el ratón sobre la barra de scroll, el sistema además reciba los mensajes a tiempo, lo que vendría a ser simultanear estos dos eventos? O en su defecto dar prioridad al OnMessage del TApplicationEvent sobre el OnChange del TScrollBar Un saludo y gracias por las respuestas. |
Se me hace raro que nadie conteste a este mensaje. ¡A ver, sabios! ¡Dadle al coco!
|
Cita:
|
A ver si entiendo bien. Tu quieres que se ejecute el evento OnChange de tu ScrollBar pero que, además, se capture en Application->OnMessage antes de que se ejecute el correspondiente OnChange...
Si es así, ten en cuenta una cosa. OnMessage no captura todos los mensajes, solo los puestos en la cola de mensajes, es decir sólo los enviados con la API PostMessage, no los enviados directamente con SendMessage. Pero podemos hacer una trampa. El truco es simple, llamamos al evento OnMessage directamente en las primeras instrucciones del OnChange: Código:
// Creamos un mensaje nuevo de usuario Saludos. |
Bueno, en primer lugar gracias por las respuestas y apoyándome en ellas voy a intentar explicar mejor lo que me ocurre.
Tengo lo siguiente //***************************************************** void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled) { if(Msg.message == WM_MENSAJE_PUERTO_SERIE){ //Tratamos el mensaje que ha llegado por el puerto serie } } void __fastcall TForm1::ScrollBar1Change(TObject *Sender) { //Actualizo unos valores, por ejemplo... int variable = ScrollBar1->Position; } //***************************************************** Mientras no toque en la ScrollBar no hay problema, pero cuando estoy utilizando el ratón sobre ella para desplazarla, no atiendo a tiempo los mensajes que me llegan por el puerto serie, supongo que porque se están ejecutando las instrucciones del evento OnChange de la ScrollBar. Creo que la solución podría ser utilizar un hilo (hebra/thread) que estuviese pendiente del evento OnMessage (corregidme si me equivoco). ¿Sabeis cómo se podría hacer esto? Un saludo y muchas gracias por vuestro tiempo y respuestas |
Hola gesgg.
Por favor cuando incluyas código en tus mensajes, para darle más legibilidad, utiliza las Etiquetas vB, en el caso de C++ Builder: [code] aquí_va_tu_codigo [/code] Quedaría así: Código:
void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled) |
Gracias por la aclaración ecfisa. La verdad es que queda mucho mejor.
|
La franja horaria es GMT +2. Ahora son las 10:38:19. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi