---- Delphi هي لغة برمجة موجهة نحو الكائنات. من بين الطبقات العديدة الواردة في دلفي ، يعد Tapplication فئة تلعب دورًا مهمًا للغاية. فئة tapplication هي فئة تستخدم لوصف التطبيقات التي جمعتها Delphi. من خلال التطبيق المرن لهذه الفئة ، يمكن إعداد العديد من البرامج المميزة. دعنا نعطي بعض الأمثلة في هذا الصدد.
---- 1 اكتشف ما إذا كان يتم تنشيط برنامج Windows الحالي:
---- فئة tapplication لديها خاصية-نشطة ، والتي يمكن أن تصف ما إذا كان يتم تنشيط برنامج التشغيل حاليًا ويصبح محور Windows. رمز الكشف هو كما يلي:
ifapplication.active = falsethen
ShowMessage ("النافذة الحالية غير نشطة") ؛
---- 2 احصل على اسم البرنامج الحالي:
---- يمكن أن تُرجع خاصية exename لفئة tapplication اسم الملف الكامل (بما في ذلك المسار) لهذا البرنامج القابل للتنفيذ. الرمز المنفذ هو كما يلي:
--- ShowMessage (application.exename) ؛
---- 3 قم بتغيير العنوان عند تقليل البرنامج
--إذا لاحظت بعناية ، فستجد أن ألقاب بعض البرامج لا تتوافق مع أسماء البرامج ، خاصة في بعض البرامج الإنجليزية ، غالبًا ما أصبح بضعة رسائل. ما يعمل في الوسط هو خاصية عنوان فئة tapplication. تحدد هذه الخاصية العنوان عند تقليل البرنامج ، ويتم تحديد عنوان شريط العنوان في النافذة بواسطة خاصية التسمية التوضيحية للنموذج. الرمز كما يلي:
form1.caption: = "عنوان النافذة" ؛
application.title: = "عنوان البرنامج" ؛
---- في الواقع ، يمكننا أيضًا تحديد قيمة سمة العنوان لفئة tapplication عند البرمجة. تتمثل طريقة التشغيل في سحب قائمة المشروع في بيئة التطوير وتحديد قائمة الخيارات ومربع الحوار كما هو موضح في الشكل 1 (تم حذفه). يمكن أيضًا تحقيق هذا التأثير عن طريق ملء عمود عنوان مربع الحوار هذا. ولأن ملفات المشروع العامة يتم تسميتها باللغة الإنجليزية ، فإن عنوان مربع الرسائل ينبثق أثناء تشغيل البرنامج باللغة الإنجليزية. ولكن بعد تحديد هذه الخاصية ، تصبح عناوين جميع رسائل Windows لهذا البرنامج قيمة العنوان. هذا يجعل البرنامج يبدو أكثر اكتمالا.
---- 4 حدد النافذة الرئيسية للبرنامج
--- واجهات في أنظمة Windows كلها Windows ، ولكن بشكل عام ، هناك نافذة رئيسية. يمكن أن تعود خاصية TappLication الرئيسية إلى النافذة الرئيسية للبرنامج.
---- 5 مربع رسالة العرض
--لدى Delphi العديد من الوظائف وإجراءات عرض مربعات الرسائل. إذا كنت ترغب في إنشاء زر مع شاشة صينية ، فستحتاج إلى وظيفة مراسلة تساعد في tapplication. النموذج الأولي لهذه الوظيفة هو كما يلي:
---- functionMessageBox (النص ، التسمية التوضيحية: char ؛ الأعلام: longint): عدد صحيح
؛
---- في هذه الوظيفة ، فإن العنصرين الأولين هما المعلومات المطالبة المعروضة وعنوان نافذة الرسالة. قد يلاحظ المستخدمون المطلعون على Delphi أن هذه الوظيفة تختلف قليلاً عن الوظيفة التي توفرها Delphi3. في مؤشرات. يجب أن نولي اهتماما للفرق عند استخدامه.
---- Application.MessageBox ("هل تحتاج إلى حفظه؟" ، "رسالة موجهة" ، MB_OKCANCEL) ؛
----- أخيرًا ، يتم تقديم بعض التفسير حول قيمة إرجاع هذه الوظيفة. يتم الضغط عليه.
---- معنى الزر في الجدول 1 والقيمة المحددة في النظام
معنى الزر القيمة التي يتم إرجاعها بواسطة الوظيفة عند الضغط على هذا الزر
Idabort 3
idcancel 2
Idignore 5
IDNO 7
idok 1
idretry 4
المثالي 6
---- 6 تحكم في حجم النافذة
--- عمومًا ، يمكن استخدام مقبض النافذة لضبط حجم النافذة ، ولكن يمكن أيضًا استخدامه لضبط حجم النافذة باستخدام أحداث التطبيق. طريقة التنفيذ هي استخدام العمليتين التاليتين:
application.minimized ؛
Application.Restore ؛
--- تُستخدم العملية السابقة لتقليل النافذة الرئيسية للبرنامج ، ويتم استخدام العملية الأخيرة لاستعادة النافذة التي تم تقليلها إلى حجمها الأصلي.
---- 7 ارتباط ملف مساعدة عبر الإنترنت
---- خاصية Application CurrentHelpFile يمكنها تحديد اسم ملف ملف المساعدة عبر الإنترنت المستخدم بواسطة البرنامج الحالي. غالبًا ما تستخدم هذه الخاصية بالاقتران مع طريقة أخرى. كمثال:
application.helpfile: = 'اسم ملف التعليمات عبر الإنترنت' ؛
application.helpjump ("موضوع ملف المساعدة عبر الإنترنت")
----- من خلال مجموعة الأوامر هذه ، يمكننا جعل النظام يطفو على تشغيل ملف مساعدة عبر الإنترنت يعرض موضوعًا معينًا.
---- 8 قم بإنشاء Windows ديناميكيًا عند تشغيل البرنامج
--عادةً ما تتم إضافة Windows إلى المشروع أثناء التصميم ، ولكن في بعض الأحيان نحتاج أيضًا إلى إضافة Windows ديناميكيًا عند تشغيل البرنامج.
Form3: Tform3 ؛ // Denare Window Class
application.createform (tform3 ، form3) ؛ // إنشاء نافذة
---- 9 إنهاء البرنامج
--على الرغم من أننا نستطيع إغلاق برنامج عن طريق إغلاق النافذة الرئيسية ، فإن طريقة أفضل هي استخدام عملية إنهاء التطبيق. يمكن أن تحقق إغلاقًا أكثر شمولاً للبرنامج.
---- السمة 10Destroy.
--- على الرغم من أن Delphi توفر هذه الخاصية ، إلا أنه لا ينصح باستخدامه. متشابه. لا يمكن أن تغلق مثيل البرنامج نفسه فحسب ، بل يمكن أيضًا إصدار الموارد التي يشغلها البرنامج ، وتحقيق الغرض من تطهير البرنامج تمامًا خارج النظام.