توفر جميع الكائنات في Delphi أربع سمات: أعلى ، يسار ، ارتفاع ، وعرضها للتحكم في موضع وحجم الكائن ؛
قوس ⒗ ستارة
تعرض خطبة الستار ببطء الشاشة من الوسط إلى الجانبين. هنا ، قم بتعيين خاصية Center DBImage1 إلى True ؛ اضبط خاصية العرض على 0 وضبط قيمة اليسار بشكل مناسب لجعلها تظهر في منتصف الشاشة. تتمثل الطريقة الرئيسية لتنفيذ الرسوم المتحركة في تعديل السمة اليسرى (تصبح القيمة أصغر تدريجياً) وسمات العرض (تصبح القيمة بشكل تدريجي أكبر). يجب أن تكون قيمة تغيير العرض هي قيمة التغيير اليسرى. أدخل العبارة التالية في حدث Ontime of Dimeer1:
إذا (dbimage1.left> 0) ثم
يبدأ
dbimage1.Left: = dbimage1.Left-1 ؛
dbimage1.width: = dbimage1.width+2 ؛
// يجب أن تكون قيمة تغيير DBIMAGE1.WIDTH 2 أضعاف قيمة تغيير DBIMAGE1.LEFT
نهاية
آخر
Timer1.Enabled: = false ؛ // خذ نهاية.
تغيير اليسار في البرنامج أعلاه إلى الأعلى والعرض إلى الارتفاع لتحقيق سحب الستار الرأسي. إذا تم تطبيق تأثير سحب الستار على كائن نوع النص ، فإن الصورة جيدة جدًا.
، الأكورديون
في الرسوم المتحركة لثقب العين ، عندما يتم عرض الشاشة بأكملها ، يتم حظر الشاشة ببطء من كلا الجانبين إلى الوسط ، وتستمر في الدورة ، مثل لعب الأكورديون. عند التنفيذ ، يجب إضافة حالة متغيرة للإشارة إلى الحالة في هذا الوقت. الإجراءات المحددة هي كما يلي:
الإجراء tform1.timer1timer (المرسل: tobject) ؛
يبدأ
إذا كانت الحالة = 1 ثم
إذا (dbimage1.left> 0) ثم
يبدأ
dbimage1.Left: = dbimage1.Left-1
dbimage1.width: = dbimage1.width+2
نهاية
آخر
// عندما يتم فتح الشاشة بالكامل ، قم بتغيير متغير الحالة
الحالة: = 2
آخر // اسحب من كلا الجانبين إلى الوسط
إذا dbimage1.left <form1.width div 2 ثم
يبدأ
dbimage1.left: = dbimage1.left+1 ؛
dbimage1.width: = dbimage1.width-2 ؛
نهاية
آخر
// عندما تغلق الشاشة ، قم بتغيير متغير الحالة
الحالة: = 1 ؛
نهاية؛
، نوع السياج
يتم حظر السطح في البداية بواسطة الأسوار الرأسية ، ثم تضيق الأسوار تدريجياً ، وتصبح الصورة المقسومة على الأسوار تدريجياً. في هذه الرسوم المتحركة ، يتم تشغيل دور السياج ككائن لنوع النص الثابت (تعرض الشاشة عدة أسوار وتتطلب عدة كائنات ثابتة). فقط قم بتغيير خصائص العرض اليسرى لكائن نوع StaticText (يصبح اليسار تدريجياً أكبر ويصبح العرض تدريجياً أصغر).
إذا كان ST1.WIDTH> 0 ثم // ST1 هو كائن من نوع stacticText
يبدأ
ST1.WIDTH: = ST1.WIDTH-2 ؛
st1.left: = st1.left+1 ؛
نهاية
آخر
// قم بالتشغيل مرة أخرى
يبدأ
ST1.WIDTH: = 40 ؛
ST1.Left: = 40 ؛
نهاية؛
قم بترتيب الأسوار فوق أفقيًا ، وتغيير اليسار إلى الأعلى ، والعرض إلى الارتفاع ، والذي سيصبح تأثير نافذة مائة صفحة.
صفحة G⒎
تأثير استئناف الانتقال هو في الواقع إصلاح القيمة العليا ، وتغيير قيمة الارتفاع ، وتعيين قيمة التمدد إلى صحيح. اكتب البرنامج التالي في حدث OnTime of timer1 لرفع الصفحات إلى الأعلى:
إذا dbimage1.hight> 0 ثم
dbimage1.hight: = dbimage1.Height-4
تتغير قيمة السمة لارتفاع آلات Yanxiaping من صغير إلى كبير ، بحيث يتم تحقيق تأثير تحويل الصفحات إلى أسفل. إذا قمت بتغيير من أعلى إلى اليسار والارتفاع إلى العرض ، فستحقق تأثير تحويل الصفحات إلى اليسار واليمين. إذا تم تغيير اليسار والعرض في نفس الوقت ، يمكن تدوير الصورة بخط عمودي يمر عبر الصورة مثل المحور.
الإجراء tform1.timer1timer (المرسل: tobject) ؛
يبدأ
إذا كانت الحالة = 1
ثم
إذا كان dbimage1.width> 0 ثم
يبدأ
// تصبح الصورة تدريجيًا أصغر
dbimage1.left: = dbimage1.left+1 ؛
dbimage1.width: = dbimage1.width-2 ؛
// يجب أن تكون قيمة تغيير العرض ضعف قيمة تغيير اليسار
نهاية
آخر
الحالة: = 2
آخر
إذا dbimage1.width <250 ثم
يبدأ
dbimage1.Left: = dbimage1.Left-1 ؛
dbimage1.width: = dbimage1.width+2 ؛
نهاية
آخر
الحالة: = 1
نهاية؛
من البرنامج أعلاه ، يمكننا أن نرى أن هذا هو جعل الصورة أصغر بشكل تدريجي ستظهر دولتان بالتناوب.
يتحرك تدريجياً (يطير) عبر الوجه
غالبًا ما يكون هناك حاجة إلى تأثير ترك العنوان يطير عبر الصورة. لتنفيذ هذا النوع من الرسوم المتحركة ، تحتاج فقط إلى تغيير الجزء العلوي من العنوان (تحلق رأسياً) أو السمة اليسرى (تطير أفقياً).
إذا أدركت عنوانًا يطير من اليسار إلى اليمين على لوحة. قم أولاً بإنشاء كائن رسومي dbimage1 و outbour statictext1 في form1 (لاحظ أنه لا يمكن عرض كائنات نوع النص على الصورة) ، وتعيين الموضع والحجم ، ثم قم بإنشاء وقت كائن الوقت 1 في Form1 ، وقم بتعيين الخاصية الممكّنة الخاصة به لتعيين TrueInterval الخاصية إلى 10 ؛
الإجراء tform1.timer1timer (المرسل: TOBJECT) ؛
إذا staticText1.Left <dbimage1.width+dbimage1.left ثم
StaticText1..Left: = StaticText1.Left+3
آخر
StaticText1.Left: = dbimage1.Left ؛
// عندما يطير العنوان من الصورة ، اجعل العنوان ينتقل إلى يسار الصورة ، وأدخل الشاشة من اليسار إلى اليمين مرة أخرى
نهاية؛
احصل على طائر
1. إذا كنت ترغب في نقل العنوان من اليسار إلى اليمين مرة واحدة فقط ، قم بتغيير بيان آخر إلى timer1.endabled: = false ؛
2. القيمة 3 هي قيمة سرعة حركة العنوان ويمكن تغييرها حسب الرغبة ؛
3. إذا تم نقل العنوان إلى موضع معين في الصورة ، قم بتغيير "statictext1.left <dbimage1.width+dbimage1.left" إلى "StaticText1.Left <قيمة الموضع" ، وتغيير بيان آخر إلى timer1.Endabled: = خطأ شنيع؛
4. فقط قم بتغيير قيمة اليسار من كبيرة إلى صغيرة ، ثم تطير من اليمين إلى اليسار ؛
5. قم بتغيير اليسار أعلاه إلى الأعلى والعرض إلى الارتفاع لتحقيق الرسوم المتحركة الرأسية.