الجزء 5 ملف التجميع (صفحة 12)
مثالنا التالي هو برنامج مكتوب في VCL (مكتبة المكون المرئي) في IDE. يشكل هذا البرنامج تلقائيًا ملفات Windows وموارد الإطارات ، لذلك لا يمكنك التجميع من ملف مصدر واحد. لكنه يوضح ميزة مهمة للغة دلفي. بالإضافة إلى الوحدات المتعددة ، يمكن استخدام الفئات والكائنات.
يتضمن هذا البرنامج ملف مشروع ، وملفان وحدة جديدان. أولاً ، ملف المشروع هو كما يلي: تحية البرنامج ؛ يستخدم النماذج ، الوحدة 1 ، الوحدة 2 ؛ إلى مثيل التطبيق العالمي // اتصل على مثيل التطبيق العالمي. استخدم 3 ملفات وحدة. النماذج هي جزء من VCL.
يستدعي هذا البرنامج سلسلة من الكائنات التي تسمى التطبيق ، وهو مثيل لفئة tapplication المحددة في وحدة وحدة النموذج. (يقوم كل مشروع تلقائيًا بإنشاء كائن تطبيق.) طريقتان مسماة CreateForm Call من TappLication. المكالمة الأولى CreateForm لإنشاء Form1 هي مثيل لفئة Tform1 المحددة في Unit1. المكالمة الثانية CreateForm ، تنشئ Form2 ، وتحدد مثيل فئة TFROM2 في UNIT2. 10 Unliit1 يبدو: UNIT1 يبدو: UNIT 1 ؛ interfaceuses sysutils ، أنواع ، فئات ، رسومات ، أدوات التحكم ، النماذج ، الحوار ؛ typetform1 = class (tform) button1: tbutton tform1 يحتوي TForm1 على زر ButtonButton1 ، وهو مثيل لفئة Tbutton وعملية تدعى Button1Click ، والتي تسمى عندما ينقر المستخدم على زر. Button1click يخفي Form1 لإظهار Form2 (عن طريق استدعاء Form2.showModal).
Form2 هو وحدة محددة في الوحدة 2 ؛ Tform2 يحتوي Tform2 على زر (مثيل لـ CancelButton ، مثيل Tbutton) ومربع نص (مثيل Label1 ، مثيل Tlabel). لا يمكنك رؤية هذا النموذج في الكود المصدري ، باستثناء أن Label1 يعرض العنوان قراءة Hello World!
يعلن TForm2 ويحدد طريقة CancelButtonClick ، والتي تسمى عندما يضغط المستخدم على CancelButton في وقت التشغيل. تسمى هذه العملية (إلى جانب form1.button1click في UNIT1) معالج الأحداث. لأنه حدث يتم الرد عليه عند تشغيل البرنامج. مقابض الأحداث هي أحداث خاصة محددة في ملفات Form1 و Form2. عندما يبدأ برنامج الترحيب ، يتم عرض Form1 ويتم إخفاء Form2. (افتراضيًا ، تكون النافذة الأولى التي تم إنشاؤها في ملف المشروع مرئيًا فقط في وقت التشغيل ، وتسمى النافذة الرئيسية للمشروع.) عندما يضغط المستخدم على الزر في Form1 ، يظهر Form2 Hello World! استمع إلى الحرارة العالية. عندما يضغط المستخدم على زر CancelButton أو زر الإغلاق الموجود على شريط العنوان ، يتم إغلاق Form2.