घर
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.56 एमबी
समय: 0.042 c
14-22365
Ketmar
2001-10-16 06:22
2002.01.08
यहाँ यह दिलचस्प है: सिम्फ़रोपोल से, क्या मैं यहाँ अकेला हूँ?


7-22420
Cntcyz.cm crfpfnm cdjt bvz
2001-09-21 21:12
2002.01.08
लोग मुझे बताते हैं कि कैसे होना है?


7-22423
Alex_K_xelA
2001-09-21 18:55
2002.01.08
CD-ROM से सेक्टर पढ़ना


1-22103
ProfiUgl
2001-12-19 17:15
2002.01.08
घटना का रूप


7-22428
येगोर मत्येव
2001-09-24 02:41
2002.01.08
पृष्ठ का HTML स्रोत





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