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

नीचे

Dfm से फॉर्म कैसे बनाये? इसी तरह की शाखाएँ खोजें


AndrewK   (2003-04-16 14:15) [0]

रूपों को गतिशील रूप से बनाने की इच्छा है। क्या किसी सूत्र के रूप में dfm से फ़ॉर्म लोड करना संभव है, या क्या मुझे नियंत्रणों के सीमित सेट का वर्णन करना है और फ़ॉर्म बनाने के लिए अपना स्वयं का प्रारूप लिखना है?



evvcom   (2003-04-16 14:51) [1]

А
Form1: = TForm.Create; Button1: = TButton.Create (Form1); Button1.Parent: = Form1;
और इतने पर सूट नहीं करता है?



kull   (2003-04-16 15:52) [2]

सहायता देखें: TCustomForm.CreateNew

शायद आपको इसकी आवश्यकता है?



Shirson   (2003-04-16 16:09) [3]

रास्ते में, एंड्रयूके एक और पूछता है। डीएफएम में, डेल्फी को एक फॉर्म एडिटर के रूप में उपयोग करते हुए फॉर्म के रिक्त स्थान में फेंक दें, और फिर इन फॉर्म को प्रोग्राम में गतिशील रूप से रखें। यानी मुद्दा यह है कि नए रूपों को जोड़ते समय कार्यक्रम को फिर से नहीं जोड़ा जाता है।
IMHO समस्या है कि अधिक ...



kull   (2003-04-16 16:18) [4]

विवरण

इसे आरंभ करने के लिए .DFM फ़ाइल का उपयोग न करें। हमेशा CreateNew का उपयोग करें यदि TCustomForm एक TForm ऑब्जेक्ट या TForm ऑब्जेक्ट है।

WriteComponentResFile ("Temp.dfm", Form1);

...
Form2: = TForm.CreateNew (अनुप्रयोग);

ReadComponentResFile ("Temp.dfm", Form2);




AndrewK   (2003-04-18 09:49) [5]

चे काम नहीं कर रहा है ... :(



savva   (2003-04-18 11:00) [6]

मैंने ऐसा किया:

परियोजना
कार्यक्रम Project1; का उपयोग करता है फार्म, कक्षाएं, Unit1 "Unit1.pas" {Form1} में; {$ R * .RES} // {$ DEFINE REFRESH_FORM} शुरू करना Application.Initialize; {$ IFDEF REFRESH_FORM} Application.CreateForm (TForm1, Form1); WriteComponentResFile ("Test.dfm", Form1); Form1.free; {$ ENDIF} Form1: = TForm1.CreateNew (अनुप्रयोग); ReadComponentResFile ("Test.dfm", Form1); Form1.Show; दोहराना Application.HandleMessage जब तक आवेदन। Form1.free; अंत।
प्रपत्र
इकाई Unit1; इंटरफ़ेस का उपयोग करता है विंडोज, संदेश, SysUtils, कक्षाएं, ग्राफिक्स, नियंत्रण, प्रपत्र, संवाद, StdCtrls; टाइप TForm1 = वर्ग (TForm) btnSaveForm: TButton; मेमोक्नुमएक्स: टीएममो; Label1: TLAB; प्रक्रिया Button1Click (प्रेषक: Tobject); प्रक्रिया फॉर्मक्लाउज़ (प्रेषक: टोबिज; var एक्शन: TCloseAction); निजी {निजी घोषणाएँ} सार्वजनिक {सार्वजनिक घोषणाएँ} अंत; वर Form1: TForm1; कार्यान्वयन {$ R * .DFM} प्रक्रिया TForm1.btnSaveFormClick (प्रेषक: TObject); शुरू करना WriteComponentResFile ("Test.dfm", Form1); अंत; कार्यप्रणाली शुरू करना Application.Terminate; अंत; अंत।
महत्वपूर्ण बिंदुओं पर प्रकाश डाला गया:
1) REFRESH_FORM निर्देश का उपयोग फॉर्म को अपडेट करने के लिए किया जाता है यदि आपने इसे संशोधित किया है (विशेष रूप से, नए घटकों और ईवेंट हैंडलर्स)
2) चूंकि उदाहरण में फॉर्म एक है, यानी यह मुख्य है, जब हम इसे बंद करते हैं तो हम मान लेंगे कि आवेदन पूरा हो गया है (यहां विविधताएं संभव हैं)।



savva   (2003-04-18 11:09) [7]

हालाँकि इसमें बहुत अधिक समझदारी नहीं है - अधिकतम जो कुछ किया जा सकता है वह है पाठ को बदलना, बदलना आदि। यही है, केवल गुणों को बदलें। घटनाओं को संभालने के लिए, कोड प्रोग्राम बॉडी में मौजूद होना चाहिए। यहां तक ​​कि अगर एक बटन (या किसी अन्य नियंत्रण तत्व) को फॉर्म में जोड़ा जाता है, तो घटनाओं को जोड़ना बहुत मुश्किल होगा (सभी संभावित विकल्पों को दूर करना मुश्किल है) ।।



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

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

ऊपर









मेमोरी: 0.57 एमबी
समय: 0.023 c
1-516
Fixxxer
2003-04-20 22:39
2003.05.01
संरचित पाठ


1-501
ताऊन
2003-04-20 04:18
2003.05.01
सही माउस बटन के साथ ट्री व्यू में आइटम का चयन कैसे करें?


1-597
Druecher
2003-04-17 19:56
2003.05.01
मैं फिबोनाची ढेर पर एक कोर्स पर काम कर रहा हूं।


1-534
IgorF
2003-04-21 08:54
2003.05.01
ट्री नोड संदर्भ


14-690
AG.Ru
2003-04-16 13:13
2003.05.01
डेल्फी या काइलिक्स?





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