Eventos simultáneos

[gesgg]

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.

[Ñuño Martínez]

Se me hace raro que nadie conteste a este mensaje. ¡A ver, sabios! ¡Dadle al coco!

[Casimiro Notevi]

Empezado por Ñuño Martínez

¡A ver, sabios!

No veo a ninguno

[[escafandra]]

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:

// Creamos un mensaje nuevo de usuario
const WM_SCROLLBAR_CHANGE = WM_USER + 2000;

void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled)
{
  if(Msg.message == WM_SCROLLBAR_CHANGE){
    Beep(); // Lo que sea
  }
}

void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
  // LLamamos a OnMessage
  tagMSG Msg = {Handle, WM_SCROLLBAR_CHANGE, 0, 0, 0};
  AppMessage(Msg, false);

  // Resto del código
  //.............................
}

Espero haberte entendido correctamente y darte una solución apropiada.


Saludos.

[gesgg]

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

[ecfisa]

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í:

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;

Saludos y gracias por tu colaboración.

[gesgg]

Gracias por la aclaración ecfisa. La verdad es que queda mucho mejor.