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

[ahcene]

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

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

1-ادرج زر من القائمة standard
http://img137.imageshack.us/img137/7573/34336329lt9.png

2-و ادرج العنصر richedit من القائمة win32
http://img329.imageshack.us/img329/2843/19822932ga0.png

3-و كذلك ادرج العنصر print dilog من القائمة
dialogue
http://img120.imageshack.us/img120/8005/49715501kj6.png

4-سيصبح شكل الفورم الخاص بك كالتالي
http://img120.imageshack.us/img120/4370/69323355hf2.png

[ahcene]

5-افعل كما في الصورة كي يتسنى لك رؤية محرر الشيفرة بكل سهولة
http://img178.imageshack.us/img178/60/34573542hl9.png

6-اضف comctrls,stdctrls الى السطرuses الواقع تحت interface
http://img179.imageshack.us/img179/8281/52454261yp7.png

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

7-اضغط مرة اخرى على هذا الزر كي تنتقل الى الفورم
http://img178.imageshack.us/img178/60/34573542hl9.png

8-الان اضغط مرتين على button1 كي تنتقل الى محرر الشيفرة تحت حدث النقر على الزر و اكتب التالي بين begin و end
http://img178.imageshack.us/img178/4202/35116503jw8.png

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

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

اخوكم ahcene

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

[hisham_h_m]

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