Em umTDbGrid.OnColumnMoved manipulador de eventos, ajusto algumas cores dos títulos das coluna

Eu também uso o @ da graOnTitleClicked para exibir um menu (coluna de classificação

Infelizmente, depois que o usuário arrasta uma coluna eOnColumnMoved é concluído, o VCL chamaOnTitleClicked. Isso significa que meu pop-up de ordem de classificação aparece após o arrastamento da colun

Existe uma maneira deOnColumnMoved Posso limpar a fila de eventos do mouse para queOnTitleClicked não é chamado?

Esta discussão tem esse código, mas eu não tenho umMsg dentroOnTitleClicked.

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

(Se não há como fazer isso, não é grande coisa. Posso definir uma sinalização emOnColumnMoved de modo aOnTitleClick ignora a próxima chamada.)