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

إلى

مرة أخرى يرتبط السؤال إلى RichEdit! البحث عن فروع مماثلة


Man In Red   (2001-12-16 14:31) [0]

مساعدة ، pleaaasse!
باختصار ، في النموذج: RichEdit1 و RichEdit2 و Timer.
يوجد نص في RichEdit1 ، ويقوم المؤقت كل ثانية بتحديد حرف واحد في النص بالترتيب والنسخ واللصق في RichEdit2.
كيفية التأكد من أنه عندما يتم تمييز الحرف الأخير في سطر ما ، يقوم جهاز ضبط الوقت تلقائيًا بنقل النقل إلى سطر جديد في RichEdit1 كما يضع النقل في سطر جديد في RichEdite2 ، ويحدد مرة أخرى حرفًا واحدًا حتى تنتهي الأحرف؟
شكرا لكم مقدما!



KilkennyCat   (2001-12-17 01:48) [1]

فار
Form1: TForm1؛
a: longint ؛

التنفيذ

{$ R * .DFM}

الإجراء TForm1.Timer1Timer (المرسل: TObject) ؛
فار
ب: longint؛
بدأ
inc (a)؛
b: = rxrichedit1.SelStart؛
rxrichedit1.SelStart: = a؛
rxrichedit1.SelLength: = 1؛
إذا كان b = rxrichedit1.SelStart ، ثم BASTAMANIAN!
الغاية؛

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

أو هل أسيء فهم مرة أخرى؟ ثم يتم طرح السؤال بشكل غير صحيح.
يحتوي هذا الرمز على خلل - فهو يبرز حرف تغذية السطر. للتخلص من ذلك ، يجب عليك التحقق مما إذا كانت الشخصية التالية عبارة عن سطر جديد وإذا كان الأمر كذلك ، فحينئذٍ ، ضع علامة (أ)



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

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

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





الذاكرة: 0.54 ميغابايت
الوقت: 0.033 ج
3-21927
Aleks_Vl
2001-12-04 09:47
2002.01.08
DTS + دلفي


1-22230
رجل باللون الأحمر
2001-12-15 23:01
2002.01.08
كيفية عرض الرقم التسلسلي في RichEdite للشخصية المحددة في labele!


6-22292
3d [الطاقة]
2001-10-06 18:16
2002.01.08
رمز الشبكة للعبة.


1-22119
Socol
2001-12-15 10:45
2002.01.08
مساعدة مع سؤالين!


1-22255
ديمتري كاتاييف
2001-12-14 14:51
2002.01.08
كيفية تنفيذ عنصر قائمة جديد في IE ، والذي يتم استدعاؤه بواسطة الزر الأيمن (مثل في Reget ، على سبيل المثال)





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