בית
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.55 MB
זמן: 0.024 c
3-21928
כאיף
2001-12-04 17:42
2002.01.08
גלישה אריתמטית או חיתוך מחרוזת עם שחזור


14-22382
pan
2001-11-08 18:54
2002.01.08
המשך http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1005233643&n=3


4-22495
יבבה
2001-11-05 09:57
2002.01.08
יסודות WinAPI


1-22030
אנדריי סנצ'נקו
2001-12-18 12:49
2002.01.08
Form.OnCloseQuery - איך להתמודד?


14-22377
sudiv
2001-11-08 10:54
2002.01.08
C ++?





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