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

[طيباوي ابو علي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; // ..................

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;

[طيباوي ابو علي1]

تحيا الجزائر