घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मुख्य";
वर्तमान संग्रह: 2003.05.01;
डाउनलोड करें: [xml.tar.bz2];

नीचे

किसी फ़ंक्शन को एक प्रक्रिया कैसे संलग्न करें इसी तरह की शाखाएँ खोजें


Лесник   (2003-04-17 23:55) [0]

हाय पारखी। मुझे निम्नलिखित समस्या का सामना करना पड़ा: मेरे लिए यह आवश्यक है कि मानक InputtBox, जब संपादन फ़ील्ड में दर्ज किया जाए, तो OnKeyPress घटना को संभालें और मुझे केवल संख्या दर्ज करने की अनुमति दें। मैंने अपनी स्वयं की इकाई बनाई, जिसमें मैंने प्रक्रिया (डायलॉगसेपस से) इनपुटबॉक्स और इनपुटविक्यू को फिर से लिखा। सब कुछ तब तक काम करता है जब तक मैं एडिट बनाने के बाद EditKeyPress प्रक्रिया को कनेक्ट करने का प्रयास करता हूं।
कोड उदाहरण:

प्रक्रिया EditKeyPress (प्रेषक: Tobject; var कुंजी: चार);
शुरू करना
यदि नहीं (Key in ["0" .. "9") तो कुंजी: = # 0;
अंत;

function InputQueryN (const ACaption, APrompt: string;
var मान: स्ट्रिंग): बूलियन;
...........
संपादित करें: = TEdit.Create (फॉर्म);
संपादित करें के साथ
शुरू करना
जनक: = रूप;
लेफ्ट: = प्रॉम्प्ट.लिफ्ट;
शीर्ष: = प्रॉम्प्ट। टॉप + प्रॉम्प्ट।हाइट + एक्सएनयूएमएक्स;
चौड़ाई: = मुलडिव (164, DialogUnits.X, 4);
MaxLength: = 255;
पाठ: = मूल्य;
SelectAll;
OnKeyPress: = EditKeyPress; // यहाँ त्रुटि
अंत;
.............
छाँटने में मदद करने के लिए यहाँ क्या गलत है।
धन्यवाद.



Лесник   (2003-04-17 23:57) [1]

मैं एक टाइपो के लिए माफी माँगता हूँ
प्रक्रिया EditKeyPress (प्रेषक: Tobject; var कुंजी: चार); शुरू करना यदि नहीं ([["0" .. "9"] की कुंजी तो कुंजी: = # 0; अंत;



DJ_Sedoy   (2003-04-18 05:18) [2]

जैसा कि मैं इसे समझता हूं, इवेंट हैंडलर एक ऑब्जेक्ट विधि होना चाहिए, न कि केवल एक प्रक्रिया।



Palladin   (2003-04-18 07:07) [3]

प्रकार TKeyPressEvent = प्रक्रिया (प्रेषक: Tobject; var कुंजी: चार) वस्तु का;



malkolinge   (2003-04-18 13:07) [4]

स्टूडियो में घटक कोड। विशेष रूप से दिलचस्प घटना प्रेषण



Лесник   (2003-04-18 18:26) [5]

वैसे भी त्रुटि
[त्रुटि] MyDialogs.pas (79): असंगत प्रकार: "विधि सूचक और नियमित प्रक्रिया"



VAleksey   (2003-04-18 18:28) [6]

मॉड्यूल को हैंडलर की प्रक्रिया का विवरण दें।



Лесник   (2003-04-18 18:52) [7]

अगर मैं लिखता हूँ
OnKeyPress (फ़ॉर्म, EditKeyPress);
एक त्रुटि हो रही है
[त्रुटि] MyDialogs.pas (79):



Юрий Федоров   (2003-04-18 19:47) [8]

यह विकल्प
प्रकार
TMyObject = वर्ग
प्रक्रिया EditKeyPress (प्रेषक: Tobject; var कुंजी: चार);

अंत, {वर्ग TMyObject}
....
var Obj: TMyObject;
....
function InputQueryN
...
OnKeyPress: = Obj.EditKeyPress;
ओबज को भी बनाने की जरूरत है



Лесник   (2003-04-19 00:20) [9]

धन्यवाद यूरी फेडोरोव ©
अंत में यह निकला
टाइप TMyObject = वर्ग प्रक्रिया EditKeyPress (प्रेषक: Tobject; var कुंजी: चार); अंत; प्रक्रिया TMyObject.EditKeyPress (प्रेषक: Tobject; var कुंजी: चार); शुरू करना यदि नहीं ([["0" .. "9", Decimalseparator] में कुंजी) तो Key: = # 0; अंत; ... function InputQueryN (const ACaption, APrompt: string; var मान: स्ट्रिंग): बूलियन; var obj: TMyObject; .... संपादित करें: = TEdit.Create (फॉर्म); संपादित करें के साथ शुरू करना जनक: = रूप; लेफ्ट: = प्रॉम्प्ट.लिफ्ट; शीर्ष: = प्रॉम्प्ट। टॉप + प्रॉम्प्ट।हाइट + एक्सएनयूएमएक्स; चौड़ाई: = मुलडिव (5, DialogUnits.X, 164); MaxLength: = 4; Font.Color: = clNavy; पाठ: = मूल्य; SelectAll; OnKeyPress: = Obj.EditKeyPress; अंत; ...
सच जारी
[चेतावनी] MyDialogs.pas (92): वैरिएबल "ओबज" को प्रारंभिक नहीं किया गया है
लेकिन यह उसी तरह काम करता है जैसे उसे करना चाहिए।



Лесник   (2003-04-19 00:49) [10]

मुझे भी सलाह दी गई थी
Do Do SetWindowLong (हैंडल, GWL_STYLE, GetWindowLong (हैंडल, GWL_STYLE) या ES_NUMBER) के साथ संपादित करें;
यह भी काम करता है लेकिन दशमलव विभाजक के बिना



LEON   (2003-04-19 20:07) [11]

रन के बाद चेतावनी को हटाने के लिए, obj लिखें: = nil



पन्ने: 1 पूरी शाखा

मंच: "मुख्य";
वर्तमान संग्रह: 2003.05.01;
डाउनलोड करें: [xml.tar.bz2];

ऊपर









मेमोरी: 0.59 एमबी
समय: 0.039 c
7-807
cybermonk
2003-03-06 10:15
2003.05.01
निम्न-स्तरीय फ्लॉपी पढ़ना / लिखना


1-493
MaxSit
2003-04-17 19:01
2003.05.01
DX: QuickReport351। देखने से पहले पृष्ठों की गिनती के साथ समस्या


3-465
सर्गेई बी
2003-04-14 14:26
2003.05.01
IB: SQL क्वेरी में सबटोटल कैसे प्राप्त करें?


14-726
Tytus
2003-04-12 10:09
2003.05.01
प्रकट


14-772
konstb
2003-04-14 16:35
2003.05.01
एक घटक की तलाश में एक ला वस्तु निरीक्षक





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский