कॉम्बोबॉक्स ऑन चेंज घटना तब होती है जब आइटम

Question

में आइटम इंडेक्स संपत्ति को बदलते समय मैं डेल्फी 10.1 बर्लिन पर एफएमएक्स का उपयोग कर रहा हूं।

मैं इस पढ़ा (जो व्यवहार मैं चाहता है):

https://stackoverflow.com/a/42933567/1343976

ItemIndex बदलने प्रोग्राम के रूप में OnChange घटना नहीं होती तो संभव निकाल दिया जा रहा है। यह केवल उपयोगकर्ता बातचीत के जवाब में आग लगती है।

क्या यह केवल वीसीएल के लिए सच है?

मैं इस के लिए पूछ रहा हूँ, क्योंकि दुर्भाग्य से मेरे लिए, क्या से मैं, परीक्षण कर सकते हैं कोड में ItemIndex संपत्ति को संशोधित करनेOnChange घटना से चलाता है।

यदि यह सच है, तो मैं FireMonkey में वीसीएल के समान व्यवहार कैसे प्राप्त कर सकता हूं?

Answer 1

इस समस्या से निपटने का सही तरीका यह पता लगाना है कि OnChange हैंडलर कहां से बुलाया जा रहा है। यह TCustomComboBox.DoChange() विधि में किया जा रहा है।

तो, तुम क्या करने की आवश्यकता है या तो:

1. ओवरराइड OnChange घटना विधि सक्रिय न करने के लिए डिफ़ॉल्ट DoChange() विधि।

2. विभिन्न तर्कों का उपयोग करने के लिए ItemIndex संपत्ति सेटटर को ओवरराइड करें जो DoChange() विधि को कॉल नहीं करेगा।

इन तरीकों के दोनों अपने संशोधित ComboBox के लिए एक नया वर्ग पैदा करने के लिए आवश्यकता होती है।

Answer 2

क्या यह केवल वीसीएल के लिए सच है?

कई चीजें एफएमएक्स में एक अलग तरीके से संभाली जाती हैं।

यदि यह सच है, तो मैं FireMonkey में वीसीएल के समान व्यवहार कैसे प्राप्त कर सकता हूं?

एक सरल समाधान का ItemIndex बदलने से पहले OnChange घटना संपत्ति नहीं के बराबर है, और बाद में घटना को बहाल। ItemIndex बदलने से पहले

procedure SetItemIndex(ix : Integer; cb: TComboBox); 
var 
    original : TNotifyEvent; 
begin 
    original := cb.OnChange; 
    cb.OnChange := nil; 
    try 
    cb.ItemIndex := ix; 
    finally 
    cb.OnChange := original; 
    end; 
end;