السلام عليكم في هذا الدرس سنقوم بإنشاء علبة حوار بستخدام الدلفي تم نقوم بحفظ المكوناتها وكود التي في تلك المكونات تم نقوم بستدعائها كل مرة عندما نحتاجها:
الطريقة بسيطة تابعو معي :
1- نقوم بانشاء مشروع جديد :
و ذلك بذهاب الى شرط القوائم تم نختار File ثم New ثم VCL Forms Application - Delphi كما في صورة
2- نقوم بوضع اثنان من ازرار SpeedButton تم نكتب في الاول Yes و الثاني No و ذالك بذهاب الى Caption ويمكنكم كتابة ايظا Yes& و No& من اجل اظهار الخط اصفل حرف الاول من اجل اختصار من لوحة المفاتيح كما في الصور :
3- نقوم بتغيير عنوان الفور و ذلك بذهاب الى Caption عند تحديد الفورم تم نكتب العنون الرسالة مثلا نكتب تاكيد اي Confirmation تم نقوم بإظافة Label من تم نكتب فيه رسالة مثال هذه العلبة من اجل تأكيد الخروج من البرنامج نقوم بكتابة رسالة في Label وذلك بذهاب الى Caption بعد تحديد على Label تم نكتب الرسالة التالية :
? Are you sure to exit the program تصبح العلبة بهذا الشكل
4- نقوم بتغير بورد الفورم و ذلك بذهاب إلى BorderStyle نختار bsDialog كما في صورة :
و نقوم بجعلها تظهر في وسط الشاشة وذلك بذهاب الى Position تم نختار poScreenCenter كما في الصورة :
5- نقوم بكتاب كود الازرار نكتب في زر Yes الكود التالي بعد ظغط عليه مرتين : ;Application.Terminate من اجل اغلاق البرنامج .
و في زر No نكتب الكود التالي بعد ظغط عليه مرتين : ;ModalResult:=mrNo عن الاظهار الرسالة بستعمال او علبة الحوار بستعمال ShowModal ان كانت ب Show نكتب ;close لاجل عدم إغلاق البرنامج
كما في الصورة:
6- اقوم بإضافة صورة image من اجل توضيح الرسالة كما في صورة
الان قمنا بإنشاء علبة حوار الان سنقوم بحفظ المكونات و الكواد على شكل مكون وعندما نحتاجها نقوم بستدعائها كل مرة دون إعادة وضع كل مكون على حدا او اعادة كتابة الاكواد الطريقة بسيطة : كل ما عليك هو تحديد جميع المكونات وذلك بتحديد الفورم تم تظغط على لوحة المفاتيح على Ctrl+a سيتم تحديد جميع المكونات كما في الصورة:
تم عند الظغط على Ctrl+a تصبح هكذا:
...Create Component Template كما في الصورة :
تم ok
وهكذا قمنا بإنشاء مكون خاص بنا الان سنجد هذا المكون في قامة Standard كما في الصورة :
نقوم بانشاء مشروع جديد تم نقوم بستدعاء هذا المكون
