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

नीचे

कैप्शन फॉर्म इसी तरह की शाखाएँ खोजें


Romik   (2002-03-21 20:10) [0]

नमस्कार स्वामी!
कृपया मुझे बताएं कि कैप्शन फॉर्म को एनिमेटेड कैसे बनाया जाए,
यानी प्रभाव आंदोलन पाठ बनाएँ।

अग्रिम धन्यवाद।



Юрий Зотов   (2002-03-21 20:39) [1]

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



Romik   (2002-03-21 20:41) [2]

> यूरी जोतोव © (21.03.02 20: 39)

क्या यह अधिक विस्तार से संभव है - मैं नौसिखिया प्रोग्रामर हूं।



Юрий Зотов   (2002-03-21 21:27) [3]

यहां एक संभावित विकल्प है, अगर कुछ सूट नहीं करता है - इसे संशोधित करें।

इकाई Unit1;

इंटरफेस

का उपयोग करता है
विंडोज, संदेश, SysUtils, कक्षाएं, ग्राफिक्स, नियंत्रण,
फॉर्म, डायलॉग्स, एक्स्ट्रेक्टल्स, StdCtrls;

टाइप
TForm1 = वर्ग (TForm)
टिमरएक्सन्यूएमएक्स: टीटीमेर;
Edit1: TEdit;
Button1: TButton;
प्रक्रिया Timer1Timer (प्रेषक: Tobject);
प्रक्रिया Button1Click (प्रेषक: Tobject);
निजी
एफपोस: पूर्णांक;
FCaption: स्ट्रिंग;
सार्वजनिक
प्रक्रिया SetNewCaption (कास्ट मान: स्ट्रिंग);
अंत;

था
Form1: TForm1;

कार्यान्वयन

{$ R * .DFM}

प्रक्रिया TForm1.SetNewCaption (कास्ट मान: स्ट्रिंग);
शुरू करना
अगर FCaption <> मान है
शुरू करना
टिमरएक्सएमयूएमएक्स.एक सक्षम: = गलत;
FCaption: = मूल्य;
FPos: = 0;
कैप्शन: = FCaption;
टिमरएक्सनमएक्स.एक सक्षम: = सच
समाप्त
अंत;

प्रक्रिया TForm1.Timer1Timer (प्रेषक: TObject);
था
एल: पूर्णांक;
एस: स्ट्रिंग;
शुरू करना
टिमरएक्सएमयूएमएक्स.एक सक्षम: = गलत;
कोशिश
एल: = लंबाई (एफसीएपियन);
यदि FPos = L तो FPos: = 0;
इंक (FPos);
एस: = कॉपी (FCaption, FPos, L - FPos + 1);
अगर FPos> 1 तो S: = S + "" + कॉपी (FCaption, 1, FPos - 1);
कैप्शन: = एस
आखिरकार
टिमरएक्सनमएक्स.एक सक्षम: = सच
समाप्त
अंत;

प्रक्रिया TForm1.Button1 क्लिक करें (प्रेषक: TObject);
शुरू करना
SetNewCaption (Edit1.Text)
अंत;

समाप्त।



Romik   (2002-03-21 22:44) [4]

> यूरी जोतोव © (21.03.02 21: 27)
बहुत धन्यवाद !!! मुझे जैसी कुछ उम्मीद थी।



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

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

ऊपर









मेमोरी: 0.56 एमबी
समय: 0.034 c
4-364
Di_wind
2002-01-30 23:44
2002.04.01
मैं शायद सभी पहले से ही मिल गया, लेकिन सभी समान


1-172
SlavaLamer
2002-03-19 14:55
2002.04.01
Opendialog


1-247
alexanders
2002-03-20 23:31
2002.04.01
TEMP पर्यावरण चर का मान कैसे प्राप्त करें?


1-208
anod
2002-03-20 12:06
2002.04.01
OpenDialog


1-130
Zool
2002-03-21 20:46
2002.04.01
अपनी कक्षा कैसे बनाएँ





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