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

नीचे

मेनू आइटम नंबर निर्धारित करें इसी तरह की शाखाएँ खोजें


T2   (2001-12-16 07:29) [0]

प्रोग्राम मेनू बनाएँ। मैं पॉपअप मेनू में उपलब्ध डिस्क (कितने पहले से मौजूद हैं) का नाम रोता हूं। कैसे पता लगाया जाए कि कौन से मेनू आइटम को चुना गया था, अधिमानतः एक प्रसंस्करण प्रक्रिया में?



KilkennyCat   (2001-12-16 08:02) [1]

मैं यह करता हूं:

मैं एक प्रसंस्करण प्रक्रिया बनाता हूं, जिसमें मैं सभी वस्तुओं से क्लिकों को अग्रेषित करता हूं। प्रकार:

प्रक्रिया TForm1.popClick (प्रेषक: TObject);
शुरू करना
अगर प्रेषक = बी तो शोकेस ("बी"); // b नाम के आइटम पर क्लिक करें
अगर प्रेषक = एक तत्कालीन शोकेस ("ए"); // नाम के साथ आइटम दबाया
अंत;

बेशक, बड़ी संख्या में अंकों के साथ आपको अनुक्रमित होने की आवश्यकता है।



T2   (2001-12-16 08:59) [2]

हां, लेकिन "ए" और "बी" नाम सृजन से पहले अज्ञात हैं। जब ये मेनू आइटम नहीं हैं
संकलक और प्रेषक की तुलना करने की कोशिश करना =, त्रुटि "अघोषित पहचानकर्ता:" ए "प्रदर्शित है। क्या कोड स्पष्ट हो सकता है?

प्रक्रिया TMain.pu2Popup (प्रेषक: TObject);
var s: tstringlist; i: बाइट; NewItem: TMenuItem; f: int64; d: string [1];
शुरू करना
pu2.Items.Clear? s: = tstringlist.create;
si.GetDriveList (s); मेरे लिए: = 0 से s.Count-1 शुरू करना
न्यूआइटम: = टीमेनयू इटेम। क्रिएट (सेल्फ);
d: = copy (अपरकेस (s.strings [i]), 1,1);
f: = diskfree (ord (d [1]) - 64); अगर f = -1 तो f: = 0;
NewItem.Caption: = "&" + d + ": (" "+ इनटॉस्टर (f) +" बाइट) ";
newitem.OnClick: = ddd;
imagelist1.getbitmap (0, newitem.Bitmap);
pu2.items.Add (NewItem);
अंत; s.free;
अंत;

प्रक्रिया tmain.ddd (प्रेषक: Tobject);
शुरू करना
अगर प्रेषक = c1 तो शोकेस ("डिस्क <C> चयन करें"); // तो?
अंत;

बिलकुल ठीक



KilkennyCat   (2001-12-16 09:07) [3]

उम ... मेरी राय में, आपको और NewItem बनाने की जरूरत है। नाम (उदाहरण के लिए, a)



Anatoly Podgoretsky   (2001-12-16 10:11) [4]

आपके पास NewItem.Caption है दूसरा अक्षर डिस्क का नाम है, यह पहचान के लिए पर्याप्त है



Dmitriy(new)   (2001-12-16 12:09) [5]

प्रक्रिया tmain.ddd (प्रेषक: Tobject); var d: string [1];
शुरू करना
d: = copy (TMenuItem (प्रेषक)। कैप्शन, 2,1);
दिखावा ("डिस्क <" + डी + "> चयन");
// अगर प्रेषक = c1 है तो शोकेस ("डिस्क <C> चुनें"); // तो?
अंत;



Петрович   (2001-12-17 04:47) [6]

और आप टैग संपत्ति का उपयोग करने की कोशिश कर सकते हैं!



GennadyS   (2001-12-17 08:45) [7]

मैंने हमेशा ऐसे मामलों में TAG संपत्ति को लागू किया है। और अंकों की संख्या के आधार पर, मुझे पता था कि किस पर क्लिक करना है। (सभी मदों के लिए एक एकल प्रसंस्करण प्रक्रिया) इस प्रक्रिया में:

मामला (TComponent के रूप में प्रेषक) .tag ऑफ
1: // डिस्क बी प्रोसेसिंग
2: // - / - C
...



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

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

ऊपर









मेमोरी: 0.83 एमबी
समय: 0.057 c
14-22320
अलेक्सेंद्र
2001-11-14 14:13
2002.01.08
वाह


1-22181
भोजन
2001-12-21 11:12
2002.01.08
माउस फॉर्म मूवमेंट को कैसे रोकें?


1-22008
मगर
2001-12-17 11:46
2002.01.08
मदद !!!


4-22477
कला
2001-10-31 12:17
2002.01.08
सभी कार्यक्रमों को चलाने वाली सभी प्रक्रियाओं को कैसे देखें?


1-22058
$ Hic0
2001-12-16 11:49
2002.01.08
TTreeView और TListView





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