पता लगाएं कि फॉर्म से पहले माउस बटन पहले ही दबाया गया है

Question

यदि माउस बटन दबाया जाता है और एक विंडो दिखायी जाती है कि माउस बटन जारी होने पर विंडो को माउसअप ईवेंट प्राप्त होगा।

खिड़की दिखाए जाने के बाद, क्या माउस बटन पहले से दबाया गया है या नहीं, यह पता लगाना संभव है?

Answer 1

मैं यह कोशिश करेंगे:

procedure TForm1.FormShow(Sender: TObject); 
begin 
    if GetKeyState(VK_LBUTTON) and $8000 <> 0 then 
    ShowMessage('Left mouse button is pressed...') 
    else 
    ShowMessage('Left mouse button is not pressed...') 
end; 

Answer 2

सीधे अपने सवाल का जवाब करने के लिए, आप GetKeyState या GetAsyncKeyState साथ माउस बटन राज्य के लिए परीक्षण कर सकते हैं। आपको आवश्यक वर्चुअल कुंजी कोड VK_LBUTTON है।

इनके बीच का अंतर यह है कि GetKeyState उस समय राज्य की रिपोर्ट करता है जब वर्तमान में सक्रिय कतार संदेश आपके कतार में पोस्ट किया गया था। दूसरी तरफ, GetAsynchKeyState आपको तत्काल राज्य देता है कि आप GetAsynchKeyState पर कॉल करते हैं।

GetKeyState के प्रलेखन से:

कुंजी स्थिति इस समारोह में परिवर्तन से लौटे के रूप में एक धागा अपने संदेश कतार से महत्वपूर्ण संदेश पढ़ता है। स्थिति हार्डवेयर से जुड़े इंटरप्ट-स्तरीय स्थिति को प्रतिबिंबित नहीं करती है। उस जानकारी को पुनर्प्राप्त करने के लिए GetAsyncKeyState फ़ंक्शन का उपयोग करें। एक एप्लिकेशन कीबोर्ड-इनपुट संदेश के जवाब में GetKeyState को कॉल करता है। इनपुट संदेश उत्पन्न होने पर यह फ़ंक्शन कुंजी की स्थिति पुनर्प्राप्त करता है।

मुझे लगता है कि आप GetKeyState का उपयोग करना चाहिए, लेकिन मैं 100% यकीन है कि क्योंकि मैं वास्तव में नहीं जानते कि तुम क्या इस जानकारी के साथ प्राप्त करने के लिए कोशिश कर रहे हैं नहीं हो सकता।