دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

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

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

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

مُساهمة  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
مبتدئ في البرمجة

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

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

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

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

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

sdk11
مبرمج مجتهد

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

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

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


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