Eventos simultáneos

[[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.