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

اذهب الى الأسفل

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

مُساهمة  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:53 pm عدل 1 مرات (السبب : تصحيح بعض المعلومات)

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

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

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

مُساهمة  mah11 في 24/5/2015, 1:56 pm


الكود:

ShowMessage('Bonjour');

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

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

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

مُساهمة  djelal في 11/6/2015, 11:47 pm

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

djelal
مبتدئ في البرمجة

عدد المساهمات : 43
تاريخ التسجيل : 29/04/2015

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

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

مُساهمة  sdk11 في 12/6/2015, 10:54 pm

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

sdk11
مبرمج مجتهد

عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014

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

الرجوع الى أعلى الصفحة


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