Cómo descartar el clic del mouse en TDbGrid.OnColumnMoved

En unTDbGrid.OnColumnMoved controlador de eventos, ajusto algunos colores de encabezados de columna.

Yo también uso @ de la cuadrícuOnTitleClicked evento para abrir un menú (columna de clasificación).

esafortunadamente, después de que el usuario arrastra una columna yOnColumnMoved está terminado, el VCL llama aOnTitleClicked. Esto significa que mi ventana emergente de orden de clasificación aparece después de arrastrar la columna.

¿Hay alguna manera enOnColumnMoved Puedo borrar la cola de eventos del mouse para queOnTitleClicked@ no recibe llamadas?

Este hilo tiene este código, pero no tengo unMsg inOnTitleClicked.

while PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST, 
  PM_REMOVE or PM_NOYIELD) do;

(Si no hay forma de hacer esto, no es gran cosa. Puedo establecer una bandera enOnColumnMoved así que esoOnTitleClick ignora la siguiente llamada).

Respuestas a la pregunta(2)

Su respuesta a la pregunta