صناديق رسائل التنبيه والتحذير والاستعلام في دلفي

**mah11** 4/8/2013, 8:20 pm

صناديق رسائل التنبيه والتحذير والاستعلام في دلفي

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين

مـــــثال :

صناديق رسائل التنبيه والتحذير والاستعلام في دلفي

الكود:: procedure TForm1.Button1Click(Sender: TObject); // delph.forumalgerie.net var vali: integer; // delph.forumalgerie.net begin // سيأخذ المتغيير قيمة الرسالة أو قيمة ضغط أحد ازرار الرسالة vali := Messagedlg ( ' اختر نعم أو لا ' , mtConfirmation, [mbYes, mbNo], 0) ; // يتم اخذ القرار حسب قيمة المتغيير وهو الشرط الاول // اذا كانت قيمة المتغيير نعم سيتم تنفيذ الرسالة الاولى if vali = mrYes then MessageDlg ( ' تم الضغط على نعم ' , mtInformation ,[mbOk], 0)else // واذا كانت قيمة المتغيير لا. سيتم تنفيذ الرسالة الثانية والا سينتقل الى الرسالة الثالثة if vali = mrNo then // ........ MessageDlg ( ' تم الضغط على لا ' , mtConfirmation ,[mbOk], 0) else MessageDlg ( ' لم يتم اختيار نعم او لا ' , mtCustom ,[mbOk], 0) ; // انواع الرسائل // mtWarning تحذير // mtError خطأ // mtInformation معلومات // mtConfirmation اثبات أو استفهام // mtCustom بدون ايقونة // أزرار الرسائل // mbYes نعم // mbNo لا // mbOK موافق // mbCancel الغاء الامر // mbAbort احباط أ و يخفق // mbRetry اعادة // mbIgnore يتجاهل // mbAll الكل // mbNoToAll لا للكل // mbYesToAll نعم للكل // mbHelp مساعدة // القيم المرجعية // Modal Result values // mrNone = 0; بدون قيمة // mrOk = idOk; تم ضغط على موافق // mrCancel = idCancel; تم الضغط على الغاء الامر // mrAbort = idAbort; تم الضغط على احباط // mrRetry = idRetry; تم الضغط على اعادة // mrIgnore = idIgnore; تم الضغط على تجاهل // mrYes = idYes; تم الضغط على نعم // mrNo = idNo; تم الضغط على لا // mrAll = mrNo + 1; تم الضغط على الكل // mrNoToAll = mrAll + 1; تم الضغط على لا للكل // mrYesToAll = mrNoToAll + 1; تم الضغط على نعم للكل end; // delph.forumalgerie.net

// مثــــال الثاني : عن الرسائل تابعة لوندوز -Windows-

تستطيع تغيير العنوان ومحتوى الرسالة معا

الكود:: procedure TForm1.Button2Click(Sender: TObject); // delph.forumalgerie.net begin // صندوق الرسالة // تحتوي هذه الرسالة على زرين ، نعم و لا، مع ايعونة معلومات، والقيمة المرجعية نعم لاظهار الرسالة الثانية if MessageBox ( 0 , ' محتوى الرسالة','عنوان الرسالة ' , MB_ICONINFORMATION + MB_YESNO) = idyes then ShowMessage ( ' اختيــــــــــــــــــار نعـــم ' ) ; end; // delph.forumalgerie.net

الكود:: // أزرار الرسائل // MB_ABORTRETRYIGNORE The message box contains three push buttons: Abort, Retry, and Ignore. // هذه الرسالة تحتوي على زر واحد : موافق. وهو الشكل الافتراضي // MB_OK The message box contains one push button: OK. This is the default. // هذه الرسالة تحتوي على زرين : موافق و الغاء الامر // MB_OKCANCEL The message box contains two push buttons: OK and Cancel. // هذه الرسالة تحتوي على زرين : اعادة والغاء الامر // MB_RETRYCANCEL The message box contains two push buttons: Retry and Cancel. // هذه الرسالة تحتوي على زرين نعم و لا // MB_YESNO The message box contains two push buttons: Yes and No. // هذه الرسالة تحتوي على زرين : نعم و الغاء الامر // MB_YESNOCANCEL // القيم المرجعية //Return Values // تحديد الزر احباط // IDABORT Abort button was selected. // تحديد الزر الغاء الامر أو تم ضغط عليه // IDCANCEL Cancel button was selected. // تحديد الزر تجاهل أو تم الضغط عليه // IDIGNORE Ignore button was selected. // تحديد الزر لا أو تم الضغك عليه // IDNO No button was selected. // تحديد الزر موافق أو تم الضغط عليه // IDOK OK button was selected. // تحديد الزر اعادة أو تم الضغط عليه // IDRETRY Retry button was selected. // تحديد الزر نعم أو تم الضغك عليه // IDYES Yes button was selected. // أوامر صناديق الرسائل // Dialog Box Command // القيمة الرقمية للقيمةالمرجعية : موافق تساوي 1 // IDOK = 1; ID_OK = IDOK; // القيمة الرقمية للقيمةالمرجعية : الغاء الامر تساوي 2 // IDCANCEL = 2; ID_CANCEL = IDCANCEL; // القيمة الرقمية للقيمةالمرجعية : احباط تساوي 3 // IDABORT = 3; ID_ABORT = IDABORT; // القيمة الرقمية للقيمةالمرجعية : اعادة تساوي 4 // IDRETRY = 4; ID_RETRY = IDRETRY; // القيمة الرقمية للقيمةالمرجعية : تجاهل تساوي 5 // IDIGNORE = 5; ID_IGNORE = IDIGNORE; // القيمة الرقمية للقيمةالمرجعية : نعم تساوي 6 // IDYES = 6; ID_YES = IDYES; // القيمة الرقمية للقيمةالمرجعية : لا تساوي 7 // IDNO = 7; ID_NO = IDNO; // القيمة الرقمية للقيمةالمرجعية : اغلاق تساوي 8 // IDCLOSE = 8; ID_CLOSE = IDCLOSE; // القيمة الرقمية للقيمةالمرجعية : مساعدة تساوي 9 // IDHELP = 9; ID_HELP = IDHELP; // أيقونات صناديق الرسائل // ايقونة تنبيه الى خطر وهي على شكل مثلث بداخله رمز تعجب // MB_ICONEXCLAMATION An exclamation-point icon appears in the message box. // MB_ICONWARNING // ايقونة معلومات وهي على شكل دائرة بداخلها رمز اي i . // MB_ICONINFORMATION, MB_ICONASTERISK // An icon consisting of a lowercase letter i in a circle appears in the message box. // ايقونة استفهام وهي على شكل دائرة بداخلها رمز الاستفهام // MB_ICONQUESTION A question-mark icon appears in the message box. // ايقونة قف وهي على شكل دائرة بداخلها رمز الضرب // MB_ICONSTOP, A stop-sign icon appears in the message box. // ايقونة الخطأ نفس سابقتها // MB_ICONERROR, // ايقونة اليد نفس سابقتها // MB_ICONHAND

{
ملاحظة
المقصود بإعادة في هذا الموضوع
هو حاول مرة ثانية أو اعادة المحولة
أي قد لا ينجح امر في المرة الاولى ويتطلب اعادة المحولة
}

الكود:: procedure TForm1.Button3Click(Sender: TObject); // delph.forumalgerie.net begin // delph.forumalgerie.net // رسالة بدون أوامر ShowMessage ( ' رســـالـــة سلام ' ) ; // delph.forumalgerie.net end; // delph.forumalgerie.net

الكود:: procedure TForm1.Button4Click(Sender: TObject); // delph.forumalgerie.net begin // رسالة الصوت MessageBeep(MB_OK); // delph.forumalgerie.net // بعض الاصوات // MB_ICONASTERISK SystemAsterisk // MB_ICONEXCLAMATION SystemExclamation // MB_ICONHAND SystemHand // MB_ICONQUESTION SystemQuestion // MB_OK SystemDefault end; // delph.forumalgerie.net

الكود:: procedure TForm1.Button5Click(Sender: TObject); // delph.forumalgerie.net // متغيير حرفي var InputStr: string; // delph.forumalgerie.net begin // علبة أو رسالة تحرير InputStr:= InputBox ( ' علبة تحرير ' , ' نص الرسالة ' , ' كتابة الجملة أو الكلمة التي يأخذها المتغييرالحرفي ' ) ; end; // delph.forumalgerie.net

انتهاء

منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net

**mah11** 24/5/2015, 1:56 pm

الكود:: ShowMessage('Bonjour');

djelal 11/6/2015, 11:47 pm

بارك الله فــــــــــــــيك

sdk11 12/6/2015, 10:54 pm

بارك الله فــــــيك

صناديق رسائل التنبيه والتحذير والاستعلام في دلفي

صناديق رسائل التنبيه والتحذير والاستعلام في دلفي

رد: صناديق رسائل التنبيه والتحذير والاستعلام في دلفي

رد: صناديق رسائل التنبيه والتحذير والاستعلام في دلفي

رد: صناديق رسائل التنبيه والتحذير والاستعلام في دلفي