हम जानते हैं कि, आम तौर पर, टैब कुंजी दबाने से इनपुट फ़ोकस को अगले नियंत्रण में ले जाता है और प्रपत्र के टैब क्रम में पिछले पर शिफ्ट-टैब होता है। जब साथ काम कर रहा हो विंडोज अनुप्रयोगों, कुछ उपयोगकर्ता सहजता से टैब कुंजी की तरह व्यवहार करने के लिए Enter कुंजी की अपेक्षा करते हैं।
नीचे दिए गए उदाहरणों को इस धारणा के साथ लिखा गया है कि फॉर्म पर कोई डिफ़ॉल्ट बटन नहीं है। जब आपके फॉर्म में एक बटन होता है जिसकी डिफ़ॉल्ट संपत्ति True पर सेट होती है, तो Enter दबाएं क्रम बटन के ऑनक्लिक ईवेंट हैंडलर में निहित किसी भी कोड को निष्पादित करता है।
~~~~~~~~~~~~~~~~~~~~~~~~~
प्रक्रिया TForm1.Edit1KeyPress (प्रेषक: Tobject; var कुंजी: चार);
शुरू
अगर की = # 13 फिर शुरू
यदि HiWord (GetKeyState (VK_SHIFT)) <> 0 तब
SelectNext (TWinControl के रूप में प्रेषक, गलत, सच)
अन्य
SelectNext (TWinControl, ट्रू, ट्रू के रूप में प्रेषक);
की: = # ०
समाप्त;
समाप्त;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
प्रक्रिया TForm1.DBGrid1KeyPress (प्रेषक: Tobject; var कुंजी: चार);
शुरू
अगर की = # 13 फिर शुरू
यदि HiWord (GetKeyState (VK_SHIFT)) <> 0 तो शुरू करें
के साथ (प्रेषक के रूप में TDBGrid) करते हैं
यदि चयनित है तो 0
चयनित बिंदु: = चयनित बिंदु - १
और शुरू करें
डेटा स्रोत। डेटासेट। पहले;
चयनित बिंदु: = फ़ील्डकाउंट - 1;
समाप्त;
अंत और शुरू
के साथ (प्रेषक के रूप में TDBGrid) करते हैं
यदि चयनित है तो चयनित बिंदु: = चयनित बिंदु + १
और शुरू करें
डेटा स्रोत। डेटासेट। आगे;
चयनित बिंदु: = 0;
समाप्त;
समाप्त;
की: = # ०
समाप्त;
समाप्त;
~~~~~~~~~~~~~~~~~~~~~~~~~