delphi4arab منتديات دلفي للعرب
كيفية طبع اشياء من خلال الدلفي - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : كيفية طبع اشياء من خلال الدلفي (/showthread.php?tid=115)



كيفية طبع اشياء من خلال الدلفي - ahcene - 28-03-2008

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

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

1-ادرج زر من القائمة standard
[صورة: 34336329lt9.png]

2-و ادرج العنصر richedit من القائمة win32
[صورة: 19822932ga0.png]

3-و كذلك ادرج العنصر print dilog من القائمة
dialogue
[صورة: 49715501kj6.png]

4-سيصبح شكل الفورم الخاص بك كالتالي
[صورة: 69323355hf2.png]


كيفية طبع اشياء من خلال الدلفي - ahcene - 28-03-2008

5-افعل كما في الصورة كي يتسنى لك رؤية محرر الشيفرة بكل سهولة
[صورة: 34573542hl9.png]

6-اضف comctrls,stdctrls الى السطرuses الواقع تحت interface
[صورة: 52454261yp7.png]

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

7-اضغط مرة اخرى على هذا الزر كي تنتقل الى الفورم
[صورة: 34573542hl9.png]

8-الان اضغط مرتين على button1 كي تنتقل الى محرر الشيفرة تحت حدث النقر على الزر و اكتب التالي بين begin و end
[صورة: 35116503jw8.png]

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

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

اخوكم ahcene

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


كيفية طبع اشياء من خلال الدلفي - hisham_h_m - 16-01-2011

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