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

नीचे

गतिशील रूप से बनाई गई विंडो में एक बटन क्लिक घटना को लागू करना इसी तरह की शाखाएँ खोजें


R   (2003-04-18 01:58) [0]

यहां डेल्फी स्रोत से फ़ंक्शन का एक उदाहरण है, इसे कैसे लागू किया जाए
इस मोडल विंडो को बंद किए बिना तंत्र बटन पर क्लिक करें और
उदाहरण बीप के लिए इस पर क्लिक करें?
function InputQuery (const ACaption, APrompt: string;
var मान: स्ट्रिंग): बूलियन;
था
प्रपत्र: TForm;
प्रॉम्प्ट: टीलाबेल;
संपादित करें: Tedit;
DialogUnits: TPoint;
ButtonTop, ButtonWidth, ButtonHeight: Integer;
शुरू करना
परिणाम: = गलत;
प्रपत्र: = TForm.Create (आवेदन);
फार्म के साथ करते हैं
कोशिश
कैनवस।फोंट: = फ़ॉन्ट;
DialogUnits: = GetAveCharSize (कैनवास);
सरहद: = bsDialog;
कैप्शन: = ACaption;
ClientWidth: = MulDiv (180, DialogUnits.X, 4);
ClientHeight: = मुलडिव (63, DialogUnits.Y, 8);
स्थिति: = poScreenCenter;
प्रॉम्प्ट: = TLabel.Create (फॉर्म);
प्रॉम्प्ट के साथ
शुरू करना
जनक: = रूप;
स्वत: आकार: = सत्य;
बायां: = मुलडिव (8, DialogUnits.X, 4);
शीर्ष: = मूलडीव (एक्सएनयूएमएक्स, डायलॉग यूनीट.वाई, एक्सएनयूएमएक्स);
कैप्शन: = APrompt;
अंत;
संपादित करें: = TEdit.Create (फॉर्म);
संपादित करें के साथ
शुरू करना
जनक: = रूप;
लेफ्ट: = प्रॉम्प्ट.लिफ्ट;
शीर्ष: = मूलडीव (एक्सएनयूएमएक्स, डायलॉग यूनीट.वाई, एक्सएनयूएमएक्स);
चौड़ाई: = मुलडिव (164, DialogUnits.X, 4);
MaxLength: = 255;
पाठ: = मूल्य;
SelectAll;
अंत;
ButtonTop: = MulDiv (41, DialogUnits.Y, 8);
ButtonWidth: = MulDiv (50, DialogUnits.X, 4);
ButtonHeight: = MulDiv (14, DialogUnits.Y, 8);
TButton.Create (फॉर्म) के साथ
शुरू करना
जनक: = रूप;
कैप्शन: = SMsgDlgOK;
मोडलस्कूल: = mrOk;
डिफ़ॉल्ट: = सत्य;
सेटबाउंड्स (MulDiv (38, DialogUnits.X, 4), ButtonTop, ButtonWidth,
ButtonHeight);
अंत;
TButton.Create (फॉर्म) के साथ
शुरू करना
जनक: = रूप;
कैप्शन: = SMsgDlgCancel;
मोडलस्कूल: = mrCancel;
रद्द: = सत्य;
सेटबाउंड्स (MulDiv (92, DialogUnits.X, 4), ButtonTop, ButtonWidth,
ButtonHeight);
अंत;
अगर ShowModal = mrOk तो
शुरू करना
मान: = Edit.Text;
परिणाम: = सत्य;
अंत;
आखिरकार
Form.Free;
अंत;
अंत;



DJ_Sedoy   (2003-04-18 05:15) [1]

यह मानना ​​तर्कसंगत है कि MedalResult को हटा दें: = true?
अगर मैं प्रश्न को सही ढंग से समझूं



Palladin   (2003-04-18 07:16) [2]

सबसे स्पष्ट है कि वांछित TButton पर sv-on onclick असाइन करना है



R   (2003-04-18 08:11) [3]

> पल्लेदिन ©
और इसे कैसे असाइन करें क्योंकि फॉर्म गतिशील रूप से बनाया गया है और बटन भी।
मैं lamer के सवाल को समझता हूं लेकिन फिर भी कैसे। एक उदाहरण दें।



Palladin   (2003-04-18 08:17) [4]

आप नाक के नीचे एक उदाहरण है ...
मुख्य रूप फ़ाइल में ...

नेत्रहीन एक बटन बनाएं और उस पर एक ऑनक्लिक हैंडलर असाइन करें और देखें कि प्रोजेक्ट में क्या जोड़ा गया है और इसे कैसे डिज़ाइन किया गया है, और फिर विचार करें कि घटकों के लिए ईवेंट गुण हैं जिन्हें आप असाइन कर सकते हैं ...



R   (2003-04-18 08:51) [5]

मुझे अभी भी समझ नहीं आया कि इसे गतिशील कैसे किया जाए। एक उदाहरण कोड दें।



Skier   (2003-04-18 09:23) [6]

> आर
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988625051&n=19



Palladin   (2003-04-18 09:27) [7]

मदद के लिए जाओ और देखो
संपत्ति OnClick: TNotifyEvent;
आगे बढ़ो, देखें:
प्रकार TNotifyEvent = प्रक्रिया (प्रेषक: Tobject) ofobject;
सोचो, अधिक सोचो (सिर्फ मामले में)
मुख्य रूप में अनुमान लगाया और लिखा

प्रक्रिया OnMyButtonClick (प्रेषक: Tobject);
तो
हम इसका वर्णन करते हैं

प्रक्रिया TForm1.OnMyButtonClick (प्रेषक: TObject);
शुरू करना
Application.ShowMessage ("पहले मेरा सिर कहाँ था?", "यूरेका!);
अंत;

आपके फ़ॉर्म के निर्माण के लिए कोड में लिखें (वर्ग TForm1 को पाने के लिए, हम आपकी निर्माण प्रक्रिया को मुख्य रूप से मॉड्यूल में डालते हैं)

TButton.Create (फॉर्म) के साथ
शुरू करना
जनक: = रूप;
कैप्शन: = SMsgDlgOK;
मोडलस्कूल: = mrOk;
डिफ़ॉल्ट: = सत्य;
सेटबाउंड्स (MulDiv (38, DialogUnits.X, 4), ButtonTop, ButtonWidth,
ButtonHeight);
OnClick: = TForm1.OnMyButton क्लिक करें;
अंत;



R   (2003-04-18 09:38) [8]

मदद के लिए धन्यवाद।



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

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

ऊपर









मेमोरी: 0.58 एमबी
समय: 0.024 c
14-739
साथी
2003-04-14 10:40
2003.05.01
एमएस एक्सेस के सीधे एक्सेस के घटक बिना बीडीई और एडीओ?


14-755
gn
2003-04-14 10:29
2003.05.01
जिज्ञासा


1-529
Vladimir5
2003-04-18 12:46
2003.05.01
विभिन्न एन्कोडिंग में फ़ॉन्ट्स


1-530
एंटोन
2003-04-21 02:11
2003.05.01
लोग! सीमा bsToolWindow के साथ विंडो के शीर्षक के बारे में प्रश्न


14-682
गुमनाम
2003-04-15 12:36
2003.05.01
कैसे पता करें कि माउस घटकों के ऊपर है या नहीं,





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