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

नीचे

एमडीआई और डीएलएल के साथ समस्याएं इसी तरह की शाखाएँ खोजें


alexts   (2002-03-20 15:21) [0]

सभी उस्तादों को नमस्कार। ऐसी समस्या है:
एक एमडीआई एप्लिकेशन और डीएलएल है जिसमें फॉर्म वर्णित हैं।
यह इन रूपों को दिखाने के लिए नहीं जाता है। क्या करें?



Alx2   (2002-03-20 15:43) [1]

मंच खोजें। दो हफ्तों में चौथी बार, यह मुद्दा पॉप अप हुआ।



Alx2   (2002-03-20 15:49) [2]

क्षमा करें, इस प्रश्न का लिंक पहले ही गतिविधि की सीमा से आगे निकल गया है: (



alexts   (2002-03-20 16:07) [3]

अच्छा तो मुझे कम से कम जहां पढ़ने के लिए दे।



MAxiMum   (2002-03-20 16:08) [4]

क्या आपने DLL के लिए बाहरी रूप बनाने का कार्य किया था?
प्रकार, फ़ंक्शन (...): TMDIForm;
और फॉर्म का लिंक प्राप्त करें।



Alx2   (2002-03-20 16:19) [5]

संक्षेप में, उन्होंने ऐसा किया:
DLL में हम Reference Application और Screen ट्रांसफर करते हैं। उसके बाद, यह लगभग काम करता है। :)
यहाँ, "जल्दबाजी में" स्केच किया गया:

DLL:
का उपयोग करता है sharemem, SysUtils, कक्षाएं, फार्म, "anUnit1.pas" {MDIForm1} में anUnit1; // सामान्य रूप बैठता है Var सहेजें: TApplication; {$ R * .RES} प्रक्रिया ClearMdiApp; stdcall; शुरू करना अगर सहेजें <> शून्य है आवेदन: = सहेजें अंत; function createMDIChild (ऐप: tApplication): Tform; stdcall; शुरू करना अगर बचाओ = निल फिर सहेजें: = आवेदन; आवेदन: = ऐप; परिणाम: = TMDIform1.create (ऐप); अंत; निर्यात createMDIChild, ClearMdiApp; शुरू करना बचा: = निल; अंत।

यहाँ मुख्य मॉड्यूल है:
टाइप TForm1 = वर्ग (TForm) मेनमेनएक्सएक्सएनयूएमएक्स: टीएममेन्यू; NewMDI1: TMenuItem; प्रक्रिया NewMDI1Click (प्रेषक: TObject); प्रक्रिया फॉर्मड्रेस्ट्रॉय (प्रेषक: TObject); निजी {निजी घोषणाएँ} सार्वजनिक {सार्वजनिक घोषणाएँ} अंत; वर Form1: TForm1; function createMDIChild (ऐप: tapplication): tForm; stdcall; बाहरी "mdi.dll"; प्रक्रिया ClearMdiApp; stdcall; बाहरी "mdi.dll"; कार्यान्वयन {$ R * .DFM} प्रक्रिया TForm1.NewMDI1 क्लिक करें (प्रेषक: TObject); शुरू करना CreateMDIChild (अनुप्रयोग) .FormStyle: = fsMDIChild; अंत; प्रक्रिया TForm1.FormDestroy (प्रेषक: TObject); शुरू करना ClearMdiApp; अंत; अंत।



alexts   (2002-03-20 17:20) [6]

चेत नहीं निकलता। मुख्य खिड़की गायब हो जाती है और सब कुछ .. मैं यह करता हूं:
आदि
पुस्तकालय स्प्रे; {$ R * .res} का उपयोग करता है फार्म, SysUtils, कक्षाएं, DBTables, "u_add_group.pas" {add_group} में u_add_group "dm_tov.pas" {DM_Tovar: TDataModule}, में dm_tov main_tovar "main_tovar.pas" {f_sprtov} में, u_add_food में "u_add_food.pas" {add_food}, add_param "add_param.pas" {f_hartov} में; समारोह spr_foods (ऐप: TApplication; Scr: TScreen; DB: TDataBase): TForm; शुरू करना आवेदन: = ऐप; स्क्रीन: = खरोंच; DM_Tovar: = TDM_Tovar.Create (ऐप); DM_Tovar.Database1: = DB; f_sprtov: = Tf_sprtov.Create (ऐप); परिणाम: = f_sprtov; अंत; निर्यात spr_foods; शुरू करना अंत।

DLL से कॉल करें
लॉर्सोर्ट: = लोडलॉर्डर (पीशर (स्प्र_मेनुन्डल.ए.एस.स्ट्रिंग)); अगर LAssort <> 0 तो शुरू करना @MyProc: = GetProcAddress (LAssort, PChar (spr_menunproc.AsString)); अगर @MyProc <> nil उसके बाद MyProc (एप्लिकेशन, स्क्रीन, परिचय। अन्य शो मेसेज ("



Alx2   (2002-03-20 17:24) [7]

बस मामले में: डीएल-ओव्स्की में पहले स्थान पर स्टिक शेयरमैम और कार्यक्रम के मुख्य मॉड्यूल का उपयोग करता है।



alexts   (2002-03-20 17:38) [8]

वसरवन्नो वही बात। मुख्य रूप गायब हो जाता है, लेकिन इससे पहले मैं जिस फॉर्म को कॉल करता हूं ?????????



Alx2   (2002-03-20 17:39) [9]

अजीब। कहीं ग्लिट्स…।
मेरे पास एक उदाहरण है जो मैंने लिखा था कि पूरी तरह से काम करता है। इस पर प्रयोग करने की कोशिश करें।



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

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

ऊपर









मेमोरी: 0.58 एमबी
समय: 0.023 c
3-25
XCB
2002-03-05 18:30
2002.04.01
HyTech


1-94
qqshka
2002-03-21 12:36
2002.04.01
कमांड लाइन तर्क


14-308
UGH | B1ADE
2002-02-17 20:42
2002.04.01
मदद plizzz! मुसीबत का इशारा!


4-354
Romul
2002-01-31 10:44
2002.04.01
एपीआई के माध्यम से OpenDialog सहेजें


6-269
-Yura-
2002-01-19 15:14
2002.04.01
विंडोज में डायलअप





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