السلام عليكم
الطريقة الاولى تحتاج اولا الى فك الصورة الى اجزاء تم تشغيلها بالتوالي في مؤقت كما بالصورة
![[صورة: 87905cab3b757b1.jpg]](http://www.m5zn.com/newuploads/2017/04/24/jpg//87905cab3b757b1.jpg)
الطريقة الثانية هي تحميل الصورة بشكل طبيعي في المكون Timage
تم كتابة الكود التالي في نموذج التحميل
نسيت ان اخبرك ان عليك اضافة الوحدة
Vcl.Imaging.GIFImg
الطريقة الاولى تحتاج اولا الى فك الصورة الى اجزاء تم تشغيلها بالتوالي في مؤقت كما بالصورة
![[صورة: 87905cab3b757b1.jpg]](http://www.m5zn.com/newuploads/2017/04/24/jpg//87905cab3b757b1.jpg)
كود :
http://www.m5zn.com/d/?16635525الطريقة الثانية هي تحميل الصورة بشكل طبيعي في المكون Timage
تم كتابة الكود التالي في نموذج التحميل
كود :
( Image1.Picture.Graphic as TGIFImage ).Animate := True;// gets it goin'
( Image1.Picture.Graphic as TGIFImage ).AnimationSpeed:= 500;// adjust your speed
Form2.DoubleBuffered := True;// stops flickeringنسيت ان اخبرك ان عليك اضافة الوحدة
Vcl.Imaging.GIFImg
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)