صندوق الحوار في الدلفي

[King Soft]

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

السلام عليكم اخوتي

صناديق الحوار
ومهمتها فتح نوافذ خاصة بنظام التشغيل ( لفتح Dialogs هي عبارة عن صناديق جاهزة موجودة في الصفحة
وحفظ ملف ولتحديد لون ولفتح ملف صورة وللطباعة وللبحث .... ) وسندرس بعض هذه الصناديق بالتفصيل :
: OpenDialog
يستخدم لفتح ملف ما ،حيث يظهر النافذة المعروفة لفتح
ملف الموجودة في الويندوز وحيث يمكننا من هذه
( Open ) النافذة اختيار الملف والضغط على فتح
وسيعيد العنصر أسم الملف المختار بالخاصة
FileName
سنبدأ بمثال بسيط وسنحاول التعرف على العنصر
بشكل أفضل لاحقًا :
وزر إلى مشروع Memo مثال : أضف عنصر مذكرة
Opendialog جديد بالإضافة إلى العنصر
في حدث الضغط على الزر أكتب التعليمات التالية :

IF Opendialog1.Execute then
memo1.Lines.LoadFromFile(opendialog1.FileName ) ;

open واضغط على ( TXT ) نفذ البرنامج واضغط على الزر سيظهر صندوق الحوار أختر أي ملف نصي
سيمكنك الآن مشاهدة محتويات الملف في المذكرة .
في حال True تقوم بإظهار نافذة الحوار فتح ملف وتعيد القيمة OpenDialog1.Execute التعليمة
وفي هذه الحالة ( Open ) اختار المستخدم أحد الملفات وضغط على الزر فتح
في حال أغلق المستخدم False ستحتوي على اسم الملف، وتعيد القيمة opendialog1.FileName
وفي هذه الحالة ( Cancel ) صندوق الحوار أو ضغط على الزر إلغاء الأمر
ستحتوي على فراغ. opendialog1.FileName
من Filter تحدد هذه الخاصة نوع الملفات التي ستظهر في النافذة ، اختر الخاصة : Filter الخاصة
Filter محرر الخواص واضغط على النقاط الثلاث ... فتظهر النافذة التي تحدد نوع الملفات في العمود
أغلق النافذة ونفذ البرنامج ستلاحظ أن صندوق *.txt أكتب Filter أكتب ملف نص ، والعمود Name
وستظهر في أسفل الصندوق في العنوان الذي ، Txt الحوار لا يظهر إلا المجلدات والملفات من النوع النصي
أدخل في السطر الثاني Filter ملف نص " ، عد إلى الخاصة " Files Type يشير إلى نوع الملفات
ثم في السطر التالي العمود الأول " "*.Bat " Filter ملف دفعي "وفي العمود " Filter Name للعمود
جميع الملفات " وبجانبه " *.* " .


نفذ البرنامج الآن واضغط على الزر سيظهر صندوق فتح الملفات حيث يمكنك الآن اختيار نوع الملفات التي
. Files Type ستظهر عن طريق
تستخدم هذه الخاصة لتحديد نوع الملفات الافتراضي وتأخذ القيمة 1 لتشير إلى : FilterIndex الخاصة
الفلتر الأول و 2 إلى الثاني ....
تقوم هذه الخاصة بتحديد الفهرس الابتدائي الذي سيعمل فيه الصندوق أكتب في هذه : InitialDir الخاصة
... C:\ وسيفتح عندها الصندوق في الفهرس C:\ الخاصة القيمة
تمكنك إظهار الخاصة من إظهار نص معين في شريط العنوان لنافذة فتح الملفات ادخل القيمة : Title الخاصة
"أختر ملف ما ليقوم البرنامج بفتحه ".
ينبثق عن هذه الخاصة العديد من الخواص حاول مراجعة تعليمات دلفي للحصول على : Option الخاصة
معلومات عن عمل كل خاصة.
: SaveDialog صندوق الحوار حفظ ملف
يقوم هذا الملف بفتح صندوق الحوار حفظ ملف وهو يشبه الصندوق السابق بطريقة الاستدعاء والخصائص لذلك لا
داعي لإعادة شرح الخصائص .
مثال :
للزر القيمة " حفظ " ثم أعط Caption إلى البرنامج السابق وأعط الخاصة SaveDialog أضف زر و
الخصائص التالية : SaveDialog
*.txt ........ ملف نص : Filter 1 الخاصة
*.bat ....... : ملف دفعي
هذه القيمة ضرورية لتحديد امتداد الملف الذي سيتم حفظه . : .Txt القيمة : Defaultext 2 الخاصة
في حدث الضغط على الزر اكتب التعليمات التالية :
if savedialog1.Execute then
memo1.Lines.SaveToFile(savedialog1.FileName )
نفذ البرنامج واضغط على الزر حفظ واكتب الاسم الذي تريد ....
OfOverwritePrompt هي الخاصة Option إحدى الخصائص المهمة لهذا العنصر والتابعة للخاصة
لكي يتم تنبيه المستخدم قبل أن يحفظ ملف فوق ملف من نفس الإسم . Ture أعط هذه الخاصة القيمة
: OpenPictureDialog صندوق الحوار
صندوق الحوار هذا يشبه صندوق الحوار فتح ملف ويختلف عنه بظهور قسم يجانب الملفات لإظهار الصور قبل
لهذا العنصر مجهزة بأنواع الملفات التي يمكن للدلفي التعامل معها . Filter فتحها ، من الملاحظ أن الخاصة
مثال:
. OpenPictureDialog إلى مشروع جديد وأضف كذلك العنصر Image أضف زر وعنصر
في حدث الضغط على الزر أكتب التعليمة التالية :

if OpenPictureDialog1.Execute then
image1.Picture.LoadFromFile(OpenPictureDialog1.FileName )

نفذ البرنامج واضغط على الزر واختر أي صورة لتلاحظ ظهورها إلى يمين صندوق الحوار وبالضغط على الزر
. Image ستظهر الصورة في العنصر Open
أثناء التنفيذ وإذا *.jpg لا تظهر الملفات Filter في الخاصة Jpg ملاحظة : رغم وجود ملفان من النوع
. Uses إلى القسم Jpeg أردت إظهارها قم بإضافة اسم الوحدة

[hicham21]

لغة جمل جيدا ................... او