Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Eventos simultáneos (https://www.clubdelphi.com/foros/showthread.php?t=77436)

gesgg 25-01-2012 17:43:53

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.

Ñuño Martínez 27-01-2012 16:27:30

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

Casimiro Notevi 27-01-2012 17:31:42

Cita:

Empezado por Ñuño Martínez (Mensaje 423836)
¡A ver, sabios!

No veo a ninguno :p

escafandra 27-01-2012 21:38:34

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
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 28-01-2012 04:17:19

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 28-01-2012 04:42:38

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)
{
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 28-01-2012 09:34:59

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