בית
Top.Mail.Ru Yandeks.Metrika
פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למטה

איך נמאס כך ............................ מצא סניפים דומים


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

השאלה שלי היא:
על הטופס הם RichEdit ו טיימר. אז, ב RichEdite, יש טקסט
ואת הטיימר כל תו אחד השני של הטקסט מדגיש.

1. כיצד ניתן להפוך את הטיימר לעצור באופן אוטומטי כאשר התו האחרון בטקסט מודגש?

2. וכיצד להפוך את המרכבה למעבר לקו חדש (אם, כמובן, יש קו נוסף, ואם לא, הטיימר מפסיק, כמובן) אם התו שנבחר היה האחרון בשורה?

אני מבקש ממך, עזרה, תודה מראש!



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

יסודי. עבור RichEdit רגיל. (דלפי 5 נבדק)

הליך TForm1.Button1Click (שולח: TObject); // לחץ על הלחצן
להתחיל
richedit1.SelStart: = 0; / / להגדיר את הקרון לתחילת
richedit1.SetFocus; / / להפחית את המיקוד מהלחצן
timer1.Enabled: = true // run!
הסוף;

הליך TForm1.Timer1Timer (שולח: TObject);
היה
a תקופת
להתחיל
a: = richedit1.SelLength; / / לאחסן את הערך הישן
/ / להגדיל את הבחירה על ידי תו אחד
richedit1.SelLength: = richedit1.SelLength + 1;
// לבדוק את סוף מחרוזת abutment
אם מתחיל richedit1.SelLength = r =
/ / מנסה לעבור אחרת
richedit1.SelLength: = richedit1.SelLength + 2;
// בדוק אם המעבר הסתיים.
אם מתחיל richedit1.SelLength = r =
/ / rested, עם זאת. אז, סוף הטקסט. השבת את הטיימר.
timer1.Enabled: = false;
/ / ליידע את המשתמש, אחרת הוא לא מניח ....
showmessage ("באסטה, קאראפוזיקי!")
סוף
סוף
הסוף;



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

לא, אתה לא מבין!
כל סימלי אחד בלבד מוקצה, הראשון הראשון הוא Allened מכן השני, השלישי ו T. D .........................



עמודים: 1 ענף שלם

פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למעלה









זיכרון: 0.56 MB
זמן: 0.023 c
7-22453
ג'ורי
2001-09-21 18:26
2002.01.08
RS485


4-22505
delphixnumx
2001-11-07 20:14
2002.01.08
בעיה עם BitMap


1-22150
דימיך
2001-12-20 13:22
2002.01.08
כיצד לגלול בלוח


6-22298
קאראפו
2001-10-11 14:00
2002.01.08
למה אתה צריך TIdAntiFreeze (InDy)?


1-22161
Egor Bulychev
2001-12-19 22:13
2002.01.08
תזכיר עזרה!





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский