इससे पहले कि कोई फॉर्म कैसे दिखाए?

Question

हमारा आवेदन एक सामान्य आधार रूप का उपयोग करने के लिए उपयोग किया जाता था कि सभी रूपों का उत्तराधिकारी होना था। मैं डेल्फी के वीएफआई कार्यान्वयन से संबंधित कई परेशानियों के लिए इसका उपयोग करता हूं, जो पुलिस की आवश्यकता से लेकर कई कारणों से इसे छुटकारा पाना चाहता हूं। यह पता चला है कि इसकी पेशकश की गई अधिकांश सुविधाओं को अन्य, अधिक विश्वसनीय तरीकों से किया जा सकता है।

वह जिसे मैं इतना निश्चित नहीं हूं, स्वचालित रूप से अपने कॉलर्स के केंद्र में सभी रूपों को पोजिशन कर रहा है। इसलिए यदि मैं अपने मुख्य रूप से संवाद ए खोलता हूं, तो इसे मुख्य रूप के केंद्र में रखा जाना चाहिए। और यदि मैं संवाद ए से संवाद बी खोलता हूं, तो इसे संवाद ए के केंद्र में रखा जाना चाहिए और इसी तरह।

हम बेस फॉर्म की स्थिति संपत्ति को poOwnerFormCenter पर सेट करके यह सब ख्याल रखते थे और यह बहुत अच्छा काम करता था। लेकिन मैं इस ऐप-वाईड को कैसे करूं?

मैंने स्क्रीन.ऑनएक्टिवफॉर्म चेंज का उपयोग करने के बारे में सोचा, लेकिन मुझे लगता है कि फॉर्म हर बार जब फोकस प्राप्त करता है तो ऐसा होता है। मैंने एप्लिकेशन.ऑनमोडालबिन का उपयोग करने के बारे में भी सोचा था, लेकिन इस बिंदु पर फ़ॉर्म को खोजने का एक स्पष्ट तरीका प्रतीत नहीं होता है।

क्या किसी ने यह कोशिश की है?

Answer 1

ठीक है, जाहिर है कि ठीक हल करने के लिए आप जिस समस्या को हल करने की कोशिश कर रहे हैं, उसे हल करने के लिए विरासत प्रदान की जाती है। कोई भी समाधान शायद किसी तरह से फॉर्म विरासत की नकल करने के लिए हवा में जा रहा है।

क्या आप "= class (TForm)" के लिए अपने कोड को विश्व स्तर पर खोजने के रूप में सरल बना सकते हैं और TForm क्लास को अपने मौजूदा बेस फॉर्म या एक नई, सरलीकृत बेस फॉर्म क्लास के साथ बदलकर केवल कार्यक्षमता के साथ बदल सकते हैं?

विफल होने के कारण, आप मूल टीएफओएम कक्षा को स्वयं को पोजिशनिंग व्यवहार करने के लिए संशोधित करने का प्रयास कर सकते हैं। जाहिर है, आपूर्ति की गई कक्षाओं को संशोधित करना खतरनाक पक्ष पर थोड़ा सा है।

Answer 2

अपने आवेदन के बारे में और जानने के बिना, मेरी सलाह स्थिति को प्रत्येक फॉर्म में व्यक्तिगत रूप से जोड़ना होगा - आधार वर्ग नहीं होने के फायदे यह है कि यह कुछ रूपों को आसान बनाता है जो चीजों को थोड़ा अलग करते हैं, और यह एक ही स्थान पर एक साथ सभी तर्कों को एक साथ रखता है।

Answer 3

यदि आप एक सामान्य आधार फ़ॉर्म के साथ नहीं जा रहे हैं, तो मैं प्रत्येक फॉर्म पर एक गैर-दृश्य घटक रखने का सुझाव दूंगा। वह घटक उन आधारों को इंजेक्ट कर सकता है जिन्हें आप मूल रूप में चाहते हैं। यदि आप विभिन्न रूपों पर विभिन्न अलग-अलग व्यवहार करना चाहते हैं तो अपने घटक को एक भूमिका संपत्ति दें जो परिभाषित करती है कि किस भूमिका में होना चाहिए, और फिर वह उस भूमिका के आधार पर विभिन्न विशेषताओं को इंजेक्ट कर सकता है।

बीटीडब्ल्यू, आप गैर-दृश्य रूप विरासत भी प्राप्त कर सकते हैं, जो सभी रूपों के लिए एक सामान्य आधार वर्ग बनाने की मेरी पसंदीदा विधि है। इसमें फॉर्म में गुण जोड़ने का लाभ भी है, और फिर उन गुणों के आधार पर आप फ़ॉर्म की भूमिका या व्यवहार को बदल सकते हैं।

Answer 4

मैं आमतौर पर SetBounds() प्रक्रिया का उपयोग करके फ़ॉर्मशो ईवेंट का उपयोग करता हूं। अन्य गैर-फॉर्म नियंत्रणों के साथ आप सीएमएसहॉइंग संदेश को ओवरराइड करके वही काम कर सकते हैं।

Answer 5

मैंने ओनमोडालबिन का अपना विचार लिया और इसके साथ भाग गया। निम्नलिखित "हैक" है, लेकिन ऐसा लगता है कि यह काम करता है। बस फॉर्म के चारों ओर खींचने के लिए परीक्षण करें और बटन पर क्लिक करें।

procedure TMainForm.Button1Click(Sender: TObject); 
var 
    mForm: TForm; 
begin 
    mForm := TForm.create(self); 
    mform.width := 300; 
    mform.height := 300; 
    mForm.ShowModal; 
    mForm.Free; 
end; 

procedure TMainForm.FormCreate(Sender: TObject); 
begin 
    application.OnModalBegin := modalbegin; 
end; 

procedure TMainForm.FormShow(Sender: TObject); 
begin 
    if Screen.FormCount>1 then begin 
    screen.forms[Screen.FormCount-1].left := round((screen.forms[Screen.FormCount-2].left + screen.forms[Screen.FormCount-2].width/2) - screen.forms[Screen.FormCount-1].width/2); 
    screen.forms[Screen.FormCount-1].top := round((screen.forms[Screen.FormCount-2].top + screen.forms[Screen.FormCount-2].height/2) - screen.forms[Screen.FormCount-1].height/2); 
    application.processmessages; 
    screen.forms[Screen.FormCount-1].Caption := inttostr(screen.forms[Screen.FormCount-1].top)+','+inttostr(screen.forms[Screen.FormCount-1].left); 
    end; 
end; 

procedure TMainForm.ModalBegin(Sender: TObject); 
begin 
    if Screen.FormCount>=0 then 
    screen.forms[Screen.FormCount-1].OnShow := FormShow; 
end;