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

नीचे

ऐसे कैसे नमट ............................ इसी तरह की शाखाएँ खोजें


Man In Red   (2001-12-15 20:12) [0]

मेरा सवाल है:
फॉर्म में रिचएडिट और टाइमर हैं। तो, रिचएडिट में, पाठ है,
और टाइमर हर दूसरे पाठ में एक वर्ण का चयन करता है।

1। पाठ का अंतिम वर्ण हाइलाइट होने पर टाइमर को स्वचालित रूप से कैसे रोकें?

2। और गाड़ी को एक नई लाइन पर कैसे कूदना है (यदि निश्चित रूप से एक और रेखा है, और यदि नहीं, तो टाइमर बंद हो जाता है, तो निश्चित रूप से), यदि चयनित चरित्र लाइन में अंतिम था?

मैं आपसे भीख माँगता हूँ, मदद करता हूँ, अग्रिम धन्यवाद!



KilkennyCat   (2001-12-16 06:56) [1]

Elementarno। मानक रिचएडिट के लिए। (डेल्फी एक्सएनयूएमएक्स परीक्षण किया गया)

प्रक्रिया TForm1.Button1 क्लिक करें (प्रेषक: TObject); // बटन पर क्लिक करें
शुरू करना
richedit1.SelStart: = 0; // गाड़ी को शुरुआत में सेट करें
richedit1.SetFocus; // बटन से फोकस हटाएं
टाइमर xNUMX.Enabled: = true // run!
अंत;

प्रक्रिया TForm1.Timer1Timer (प्रेषक: TObject);
था
a: longint;
शुरू करना
a: = richedit1.Selength; // पुराने मूल्य को बचाएं
// एक चरित्र द्वारा चयन बढ़ाएं
richedit1.SelLength: = richedit1.SelLength + 1;
// लाइन के अंत में जांच निरस्त करें
यदि a = richedit1.Selength तब शुरू होती है
// दूसरे पर स्विच करने का प्रयास करें
richedit1.SelLength: = richedit1.SelLength + 2;
// जाँच करें कि क्या संक्रमण है
यदि a = richedit1.Selength तब शुरू होती है
// आराम किया, हालांकि। तो पाठ का अंत। टाइमर बंद करें।
टाइमर xNUMX.Enabled: = false;
// उपयोगकर्ता को सूचित करें, अन्यथा उसने अनुमान नहीं लगाया ...।
दिखावा ("बस्ता, छोटों!")
समाप्त
समाप्त
अंत;



Man In Red   (2001-12-16 13:29) [2]

नहीं, आप अंडरस्टैंड नहीं!
हर सेकंड केवल एक ही प्रतीक है, पहली, पहली, दूसरी, दूसरी, .................... के बारे में पहले से बताई गई है।



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

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

ऊपर





मेमोरी: 0.55 एमबी
समय: 0.022 c
3-21977
एमलिन वादिम
2001-12-03 20:42
2002.01.08
इंटरबेस में एक डेटाबेस बनाना


1-22187
Mitry
2001-12-15 02:53
2002.01.08
धागा: निलंबित / फिर से शुरू और सिंक्रनाइज़ करें


1-22196
T2
2001-12-16 07:18
2002.01.08
डेस्कटॉप बंद


1-22037
Aleksandr
2001-12-18 13:03
2002.01.08
घटक तैयार नहीं है, और यह बात है ...


1-22140
Serg5
2001-12-20 10:17
2002.01.08
यह सवाल कि क्या 4 पिक्सल के लिए फ़ॉन्ट को कम करना संभव है, यह बदल जाता है, यह बदल जाता है (कार्यक्रम शपथ नहीं लेता है), लेकिन स्क्रीन पर (Canvas.Font) यह अभी भी 8 (सबसे न्यूनतम) प्रदर्शित करता है





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