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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  alla23 في الثلاثاء أكتوبر 25, 2016 10:04 am

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

بسم الله الرحمن الرحيم

مـــــثال :

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

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); // ..........

// انواع الرسائل
// 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; // ..................

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

تستطيع تغيير العنوان ومحتوى الرسالة معا
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); // .....

// بعض الاصوات
// MB_ICONASTERISK SystemAsterisk
// MB_ICONEXCLAMATION SystemExclamation
// MB_ICONHAND SystemHand
// MB_ICONQUESTION SystemQuestion
// MB_OK SystemDefault

end; //.....


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


end;

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى