| الموضوع السابق | الموضوع التالي |
الغرض
عرض مربع رسالة بنفس مواصفات الرسالة المعروضة بعبارة Application.MessageBox و تؤدي نفس وظائفها، و لكن باستعمال النوع string بدل PAnsiChar مع تعريب مربع الرسالة (محاذاة إلى اليمين، و اتجاه القراءة من اليمين إلى اليسار).
الصيغة
function MsgBox(Text: string; Flags: LongInt = MB_OK; Caption: string = ''; RTLOrder: Boolean = True): Integer;
الوسائط (Parameters)
| Text | نص الرسالة، و هو البارامتر الوحيد المطلوب. | |
| Flags | بارامتر اختياري يحدد مواصفات الرسالة (الأزرار، رمز الرسالة (Icon)، الزر الافتراضي). استعمل نفس الثوابت التي تستعمل مع Application.MessageBox (و هي الثوابت التي تبدأ بـ MB_). لاحظ أن أحد أسباب إنشاء هذه الدالة هو تعريب الرسالة، و بالتالي لا داعي لاستعمال الثابتين MB_RIGHT و MB_RTLREADING لأن الدالة تقوم بتضمينهما تلقائياً في مواصفات الرسالة. إذا أهملت هذا البارامتر فإن الرسالة تظهر دون رمز، و زر واحد هو موافق (OK). | |
| Caption | بارامتر اختياري يحدد عنوان الرسالة. إذا أهملته فإن الدالة تستعمل عنوان التطبيق (Application.Title) كعنوان للرسالة. | |
| RTLOrder | بارامتر اختياري يحدد اتجاه قراءة و محاذاة نص الرسالة. إذا أهملته أو استعملت القيمة الافتراضية (True) فإن اتجاه قراءة النص يكون من اليمين إلى اليسار، و تكون المحاذاة إلى اليمين. أما إذا كانت قيمته هي False فإن اتجاه قراءة النص يكون من اليسار إلى اليمين و تكون المحاذاة إلى اليسار. |
الشرح
في الواقع إن الدالة MsgBox هي تغليف للمنهج MessageBox التابع للكائن Application، فهي تعرض نفس الرسالة، و تعيد نفس القيم (IDOK أو IDCANCEL أو IDYES أو IDNO أو IDABORT أو IDRETRY أو IDIGNORE)، إلا أن الدالة تستعمل النوع string بدلاً من النوع PAnsiChar، مع تسهيل تعريبها باستخدام البارامتر RTLOrder.
أعلى الصفحة
| الموضوع السابق | الموضوع التالي |