منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

إلى

كيف namut أن ............................ البحث عن فروع مماثلة


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

سؤالي هو:
في النموذج هي RichEdit و Timer. لذلك ، في RichEdite ، هناك نص ،
والموقت كل ثانية يختار حرف واحد في النص.

1. كيفية جعل الموقت يتوقف تلقائيًا عند تمييز الحرف الأخير في النص؟

2. وكيف تجعل الانتقال السريع إلى سطر جديد (إذا كان هناك بالطبع سطر آخر ، ولكن إذا لم يكن كذلك ، فإن الموقت يتوقف ، بالطبع) ، إذا كانت الشخصية المحددة هي الأخيرة في السطر؟

أتوسل إليكم ، مساعدة ، شكرا لكم مقدما!



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

Elementarno. ل RichEdit القياسية. (اختبار دلفي 5)

الإجراء TForm1.Button1Click (المرسل: TObject) ؛ / / انقر فوق زر
بدأ
richedit1.SelStart: = 0؛ / / تعيين النقل إلى البداية
richedit1.SetFocus. / / إزالة التركيز من الزر
timer1.Enabled: = صحيح // المدى!
الغاية؛

الإجراء TForm1.Timer1Timer (المرسل: TObject) ؛
فار
a: longint ؛
بدأ
a: = richedit1.SelLength؛ // احفظ القيمة القديمة
// زيادة التحديد بحرف واحد
richedit1.SelLength: = richedit1.SelLength + 1؛
// التحقق من الدعارة في نهاية السطر
إذا كانت = richedit1.SelLength فتبدأ
/ / حاول التبديل إلى آخر
richedit1.SelLength: = richedit1.SelLength + 2؛
// تحقق مما إذا كان الانتقال
إذا كانت = richedit1.SelLength فتبدأ
// راحة ، ولكن. لذلك نهاية النص. أطفئ الموقت.
timer1.Enabled: = false؛
// أبلغ المستخدم ، وإلا فلن يخمن ....
showmessage ("باستا ، الصغار!")
النهاية
النهاية
الغاية؛



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

لا أنت لا تفهم!
يتم تخصيص كل ثانية واحدة فقط ، أولاً ، الأول يقف بعد الثاني ، الثالث ، إلخ .....................



صفحات: 1 فرع كامل

المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

الطابق العلوي





الذاكرة: 0.55 ميغابايت
الوقت: 0.027 ج
6-22297
المستعلم
2001-10-10 17:09
2002.01.08
تقديم المشورة من الذي يمكن


1-22208
Nikos77
2001-12-15 18:34
2002.01.08
قل لي كيف نفعل التنسيق


1-22015
صياد
2001-12-17 13:17
2002.01.08
صورة للطابعة


1-22138
Serg5
2001-12-20 09:22
2002.01.08
أخبرني الأشخاص ، ولكن كيف يمكنني مسح Image1 ، لم أجد وظيفة مسح ...


1-22248
سفينة ضخمة
2001-12-17 13:07
2002.01.08
دلفي يسخر !!!





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch English الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский