![]() |
|
منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل... |
في حال وجود أي مواضيع أو ردود
مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة
( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
صناديق رسائل التنبيه والتحذير والاستعلام في دلفي
![]() |
|
أدوات الموضوع | انواع عرض الموضوع |
![]() |
رقم المشاركة : 1 | ||||
|
![]() صناديق رسائل التنبيه والتحذير والاستعلام في دلفي كود:
procedure TForm1.Button1Click(Sender: TObject); var vali: integer; 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); end; // 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; تم الضغط على نعم للكل // مثــــال الثاني : عن الرسائل تابعة لوندوز -Windows- تستطيع تغيير العنوان ومحتوى الرسالة معا procedure TForm1.Button2Click(Sender: TObject); // .... begin // صندوق الرسالة // تحتوي هذه الرسالة على زرين ، نعم و لا، مع ايعونة معلومات، والقيمة المرجعية نعم لاظهار الرسالة الثانية if MessageBox(0,'محتوى الرسالة','عنوان الرسالة', MB_ICONINFORMATION + MB_YESNO) = idyes then ShowMessage('اختيــــــــــــــــــار نعـــم'); // .... end; كود:
procedure TForm1.Button2Click(Sender: TObject); begin if MessageBox(0,'محتوى الرسالة','عنوان الرسالة', MB_ICONINFORMATION + MB_YESNO) = idyes then ShowMessage('اختيــــــــــــــــــار نعـــم'); end; // 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); // ... begin // رسالة بدون أوامر ShowMessage('رســـالـــة سلام '); // .... end; // ... كود:
procedure TForm1.Button4Click(Sender: TObject); // ...... begin // رسالة الصوت MessageBeep(MB_OK); // ..... end; // MB_ICONASTERISK SystemAsterisk // MB_ICONEXCLAMATION SystemExclamation // MB_ICONHAND SystemHand // MB_ICONQUESTION SystemQuestion // MB_OK SystemDefault //..... procedure TForm1.Button5Click(Sender: TObject); // ... // متغيير حرفي var InputStr: string; // ... begin // علبة أو رسالة تحرير InputStr:= InputBox('علبة تحرير' , 'نص الرسالة' , 'كتابة الجملة أو الكلمة التي يأخذها المتغييرالحرفي' ); // .... end; // علبة أو رسالة تحرير كود:
procedure TForm1.Button5Click(Sender: TObject); var InputStr: string; begin InputStr:= InputBox('علبة تحرير' , 'نص الرسالة', 'كتابة الجملة أو الكلمة التي يأخذها المتغييرالحرفي'); end;
|
||||
![]() |
![]() |
رقم المشاركة : 2 | |||
|
![]() تحيا الجزائر |
|||
![]() |
![]() |
الكلمات الدلالية (Tags) |
التنبيه, دلفى, رسائل, صناديق, والاستعمال, والتحذير |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc