كيفية طبع اشياء من خلال الدلفي

[ahcene]

السلام عليكم و رحمة الله تعالى و بركاته

اما بعد : فبعد ان انضممت الى هذا المنتدى اطال الله عمره اردت و لو بقليل ان انقل ما تعلمته رغم انني مازلت حتى الان مبتدا في الدلفي وهذا اول موضوع لي في هذا المنتدى و هو عن كيفية طباعة نص ما و ***** ان يعجبكم .

1-ادرج زر من القائمة standard


2-و ادرج العنصر richedit من القائمة win32


3-و كذلك ادرج العنصر print dilog من القائمة
dialogue


4-سيصبح شكل الفورم الخاص بك كالتالي

[ahcene]

5-افعل كما في الصورة كي يتسنى لك رؤية محرر الشيفرة بكل سهولة


6-اضف comctrls,stdctrls الى السطرuses الواقع تحت interface


هنا قمنا باضافة الكلمتين الى الكلمات لان عملية الطباعة بالطابعة تحتاج هذا المعرف لتتصل بمنفذ الطابعة

7-اضغط مرة اخرى على هذا الزر كي تنتقل الى الفورم


8-الان اضغط مرتين على button1 كي تنتقل الى محرر الشيفرة تحت حدث النقر على الزر و اكتب التالي بين begin و end


هنا قمت بستعمال الاداة الشرطية لأحدد للبرنامج انه اذا تم تشغيل الاداة printdialog فسيقوم بارسال النص الموجود في الريش ايديت ليطبع تحت اسم ltp1

ان شاء الله افدتكم و لو قليلا راجيا منكم دعوة صالحة ثم ردتا صارحة ثم رسالة راسخة.

اخوكم ahcene

المثال مع المرفقات

[hisham_h_m]

شكرا على المشاركة الرائعة
وايضاً يمكنك اجراء الطباعة عن طريق استخدام المنهجيتين (Print.BeginDoc , Print.EndDoc)
لطباعة مايحتويه اي مكون " نصي " (TEdit , DBGrid , Label , Memo) و اي نص من سلسلة نصية