إذا كنت قد استخدمت "Kingsoft PowerWord" أو "Orient Express"، فسوف تكون بالتأكيد مهتمًا بالترجمات المصاحبة في نافذة "حول" الخاصة بهم، وفي الواقع، يمكن تحقيق هذه الوظيفة بسهولة باستخدام عنصر التحكم المؤقت في دلفي.
1. أفكار التصميم
أولاً، ضع عنصر تحكم اللوحة في النموذج ثم ضع النص الذي يجب عرضه في عنصر تحكم اللوحة، ثم، من خلال عنصر تحكم المؤقت، يمكن تغيير موضع عنصر تحكم اللوحة بشكل مستمر خلال فترة زمنية معينة لتحقيق تأثير التدحرج ترجمات.
2. طريقة التنفيذ
1. قم بإنشاء نموذج جديد وضبط خصائصه كما يلي:
الاسم: frmAbout1
التمرير التلقائي: خطأ
2. ضع عنصر تحكم اللوحة في النموذج، واسمه الافتراضي هو Panel1، وقم بتعيين خصائصه على النحو التالي:
BevelOuter:bvNone
التسمية التوضيحية: (تم ضبطها على فارغة)
اضبط ارتفاع وعرض Panel1 لجعله شريطًا عموديًا ويعتمد الارتفاع على المحتوى الذي سيتم عرضه (يمكن أن يكون أكبر من ارتفاع النموذج).
3. ضع عنصر تحكم التسمية على اللوحة 1 لعرض النص. بالطبع، يمكنك أيضًا وضع عنصر تحكم الصورة عليه لعرض الصور، ولكن لا ينبغي أن يكون حجم الصورة كبيرًا جدًا، وإلا فسيؤثر ذلك على تأثير العرض.
4. ضع عنصر تحكم Timer في النموذج، واسمه الافتراضي هو Timer1، وقم بتعيين قيمة خاصية Interval الخاصة به إلى 50، وأدخل الكود التالي في حدث OnTimer الخاص به:
إذا Panel1.top>-Panel1.height ثم
Panel1.top:=Panel1.top-1
آخر
Panel1.top:=frmAbout1.height-35;
{حدد ما إذا كانت اللوحة 1 قد انتقلت إلى أعلى النموذج، وإذا لم يكن الأمر كذلك، فانقلها بمقدار بكسل واحد لأعلى، إذا كان الأمر كذلك، فانقل اللوحة 1 إلى أسفل النموذج واعرض الترجمات المصاحبة في حلقة}
5. ضع عنصر تحكم الزر في النموذج، واضبط خاصية التسمية التوضيحية الخاصة به على "موافق"، وأدخل الكود التالي في حدث OnClick:
إغلاق؛{أغلق النموذج}
3. تحسين التحليل
ما ورد أعلاه عبارة عن عملية تنفيذ بسيطة للترجمات المصاحبة، ولكن لا يزال هناك مجال واحد يحتاج إلى مزيد من التحسين: إذا كان النموذج يستخدم صورة كخلفية، فسيقوم عنصر التحكم في اللوحة بحظر جزء من نمط الخلفية. في الواقع، لحل هذه المشكلة، لا يمكننا استخدام عنصر تحكم اللوحة على الإطلاق، ولكن نضع عنصر تحكم التسمية مباشرة على النموذج، ونضبط قيمة الخاصية الشفافة لعنصر تحكم التسمية على True، ثم نتحكم مباشرة في عناصر تحكم التسمية هذه من خلال المؤقت السيطرة. ونظرًا لضيق المساحة، لن يصفها المؤلف بالتفصيل هنا.