أخد صور للـ Form

[العيد1403]

السلام عليكم

ممكن كود دلفي لأخذ صور لـ Form وحفظها في القرص

[MasteranyOne]

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

الـ form تحتوي على دالة ترجع نوع TBitmap الذي يمكن حفظه على شكل صورة

هذه هي الدالة :

كود :

Form1.GetFormImage;

إستغلال الكود :
ضع button الى ال form وكتب بدخله الكود :

كود :

var   Bitmap: TBitmap; begin   Bitmap:= Form1.GetFormImage;   try     Bitmap.SaveToFile(ExtractFilePath(Application.ExeName) + '\test.bmp');   finally     FreeAndNil(Bitmap);   end;

هذا الكود يسمح لك بحفظ صورة للـ form1 على القرص الصلب (تجد الصورة في نفس المسار الذي يوجد به ملف exe للبرنامج)

بالتوفيق,,

---

يمكن إستعمال هذا الكود بدل السابق, فهو اسرع وافضل:

كود :

Form1.GetFormImage.SaveToFile(ExtractFilePath(Application.ExeName) + '\test.bmp');

ضعه دخل button.

[العيد1403]

بارك الله فيك

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

الـ form تحتوي على دالة ترجع نوع TBitmap الذي يمكن حفظه على شكل صورة

هذه هي الدالة :

كود :

Form1.GetFormImage;

إستغلال الكود :
ضع button الى ال form وكتب بدخله الكود :

كود :

var   Bitmap: TBitmap; begin   Bitmap:= Form1.GetFormImage;   try     Bitmap.SaveToFile(ExtractFilePath(Application.ExeName) + '\test.bmp');   finally     FreeAndNil(Bitmap);   end;

هذا الكود يسمح لك بحفظ صورة للـ form1 على القرص الصلب (تجد الصورة في نفس المسار الذي يوجد به ملف exe للبرنامج)

بالتوفيق,,

---

يمكن إستعمال هذا الكود بدل السابق, فهو اسرع وافضل:

كود :

Form1.GetFormImage.SaveToFile(ExtractFilePath(Application.ExeName) + '\test.bmp');

ضعه دخل button.

بارك الله فيك و جزاك الله كل الخير