TDbGrid.OnColumn में माउस को कैसे छोड़ें

Question

TDbGrid.OnColumnMoved ईवेंट हैंडलर में, मैं कुछ कॉलम शीर्षलेख रंग समायोजित करता हूं।

मैं ग्रिड के OnTitleClicked ईवेंट को पॉप-अप (सॉर्ट कॉलम) मेनू में भी उपयोग करता हूं।

दुर्भाग्यवश, उपयोगकर्ता कॉलम ड्रैग करने के बाद और OnColumnMoved समाप्त हो गया है, वीसीएल OnTitleClicked पर कॉल करता है। इसका मतलब है कि कॉलम ड्रैगिंग के बाद मेरा सॉर्ट-ऑर्डर पॉप-अप दिखाई देता है।

OnColumnMoved में कोई तरीका है क्या मैं माउस इवेंट कतार को साफ़ कर सकता हूं ताकि OnTitleClicked को कॉल न किया जाए?

This thread इस कोड में है, लेकिन मेरे पास MsgOnTitleClicked में Msg नहीं है।

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

(वहाँ यह करने के लिए कोई रास्ता नहीं है, तो यह नहीं बड़ी बात नहीं। मैं तो OnColumnMoved में एक ध्वज सेट कर सकते हैं कि OnTitleClick यह करने के लिए अगली कॉल पर ध्यान नहीं देता है।)

Answer 1

प्रश्न के टिप्पणी में उल्लेख किया है , आप PeekMessage स्वयं (var Msg: TMsg) के लिए 'संदेश' की आपूर्ति करेंगे। लेकिन OnTitleClick को ट्रिगर करने वाले संदेश को छोड़ना संभव नहीं है क्योंकि यह वही संदेश है जो दोनों घटनाओं को सक्रिय करता है। यदि कॉलम ड्रैग किया गया है तो वीसीएल WM_LBUTTONUP संदेश के जवाब में कॉलम को आगे बढ़ाता है। बाद में उसी संदेश के प्रबंधन के दौरान OnTitleClick कहा जाता है।

IOW, जब तुम PeekMessage साथ संदेश कतार से संदेश हटा सकते हैं, संदेश है कि OnTitleClick चलाता है पहले से ही भेजा जाता है के बाद से हम एक OnColumnMoved हैंडलर में कर रहे हैं।

सबसे आसान दृष्टिकोण ध्वज को सेट करने जैसा दिखता है जैसा आपने बताया है।