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

नीचे

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


Stecoff   (2002-07-19 10:27) [0]

Господа программисты! Подскажите.
Есть MDI приложение. При нажатии на кнопку создается форма с DBGrid. Вызывается метод Show. Как сделать, чтобы при повторном нажатии форма не создавалась еще раз, а просто показывалась. Т.е., как проверить, создана ли MDIChild форма.



AngeL B.   (2002-07-19 10:36) [1]

if MDIChild1 <> nil then ...

или зависти флаг



sniknik   (2002-07-19 10:42) [2]

по какому нибудь признаку формы Caption например.
Form1.MDIChildCount
Form1.MDIChildren



fool   (2002-07-19 10:56) [3]

С MDI будь внимательным: прога точно не знает что с чилдом (есть он или нет) поетому лучше всего делать так:
при "нажатии на кнопку ":
if FrmTTN = nil then FrmTTN := TFrmTTN.Create(self);
FrmTTN.WindowState := wsMaximized;
FrmTTN.Show;

а в чилде:

procedure TFrmMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
शुरू करना
क्रिया: = कैफ्री;
अंत;

procedure TFrmTTN.FormDestroy(Sender: TObject);
शुरू करना
FrmMDIChild := nil;
अंत;




Sergey13   (2002-07-19 10:57) [4]

Я долго искал в свое время решение этого вопроса и вот к чему пришел

function ExistsForm(S:String):Boolean;
var i: पूर्णांक;
शुरू करना
परिणाम: = गलत;
for i:=0 to screen.FormCount-1 do
if uppercase(screen.Forms[i].name)=uppercase(s) then result:=True;
अंत;

параметр - имя формы. Может и не шедевр, но работает безотказно.



Johnmen   (2002-07-19 11:20) [5]

Application.FindComponent (...) <> nil



sniknik   (2002-07-19 11:31) [6]

कठिनाइयाँ क्यों? घटक रूपों द्वारा खोजें। आपको केवल चिल्ड की जांच करनी होगी। सर्जेई 13 जैसा कुछ © (19.07.02/10/57 XNUMX:XNUMX) केवल DIChildCount का उपयोग मुख्य रूप (चिल्ड की संख्या) और MDIChildren (उनमें से थोक) पर करते हैं। और क्या?



Stecoff   (2002-07-19 13:25) [7]

Все это работает (и решение Sergey13, и Fool). Только вот если форму минимизировать, то она снова креатится. Хотя стоит в OnClose Action:=caFree? Получается две созданные формы. ???



Stecoff   (2002-07-19 13:30) [8]

Извините господа. Все заработало. Спасибо огромное.



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

फोरम: "मामले";
वर्तमान संग्रह: 2002.08.08;
डाउनलोड करें: [xml.tar.bz2];

ऊपर





मेमोरी: 0.56 एमबी
समय: 0.027 c
3-23876
Skyr
2002-07-16 10:22
2002.08.08
प्रोग्राम में संग्रहीत प्रक्रिया को कैसे जकड़ना है ...।


3-23940
Dimedrol
2002-07-17 18:55
2002.08.08
ट्राइगर (फायरबर्ड, क्विकडेस्क) बनाना


7-24240
यूजीन!
2002-03-06 19:44
2002.08.08
IE और ... के संदर्भ मेनू में अपना आइटम कैसे जोड़ें


14-24170
VS2001
2002-07-04 06:41
2002.08.08
किसी को भी किसी भी संकलित है DesignEditors, DesignIntf ​​।।


3-23964
maxim2
2002-07-19 12:42
2002.08.08
SQL क्वेरी से टेबल पर कॉपी करें





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