inno setup - How to allow entering only alphanumeric chars in a TInputQueryWizardPage edit box? -
मुझे इनो सेटअप के TInputQueryWizardPage संपादित करें बॉक्स में केवल अल्फ़ान्यूमेरिक वर्णों को दर्ज करने की अनुमति है। मैं यह कैसे कर सकता हूँ?
एक अल्फ़ान्यूमेरिक वर्ण को पहचानने के लिए मैं विंडोज़ एपीआई फ़ंक्शन का उपयोग करेगा और असाइन किया गया इनपुट संपादन का OnKeyPress ईवेंट अगर मैं अल्फ़ान्यूमेरिक न हो तो मैं चाबी खाऊंगा:
[सेटअप] AppName = मेरा प्रोग्राम ऐप = संस्करण = 1.5 DefaultDirName = {pf} \ मेरा प्रोग्राम [कोड] #ifdef UNICODE #define AW "W" # # एफ़आई "ए" # एडीआईफ़ फ़ंक्शन IsCharAlphaNumeric (ch: चार): BOOL; बाहरी 'आईएसआईएचएचआरएएलएफ़ए न्यूमेरिकः {#AW}@user32.dll stdcall'; प्रक्रिया InputQueryEditKeyPress (प्रेषक: TObject; var कुंजी: चार); // प्रारंभ करें यदि वर्तमान में दबाए गए कुंजी अल्फ़ान्यूमेरिक नहीं है, तो उसे # 0 असाइन करें, यदि नहीं है तो IsCharAlphaNumeric (key) तो कुंजी: = # 0; समाप्त; प्रक्रिया प्रारंभिक विज़ार्ड; Var संपादन इंडेक्स: पूर्णांक; इनपुट पृष्ठ: TInputQueryWizardPage; आरंभ // इनपुट क्वेरी पृष्ठ बनाएं और एक संपादन आइटम इनपुट पेज जोड़ें: = CreateInputQuery पेज (wpWelcome, 'कैप्शन', 'विवरण', 'सबकैप्शन'); EditIndex: = इनपुटपृष्ठ। जोड़ें ('नाम:', गलत); // अपने कस्टम एक इनपुट पृष्ठ पर OnKeyPress ईवेंट विधि असाइन करें। संपादन [संपादित करें]। ओकेकुईप्रेस: = @InputQueryEditKeyPress; समाप्त;
Comments
Post a Comment