الاخوة الاعزاء
لدي هذا الكود البسيط لكنه يجلب فقط الصورة الثانية (adnan2) على الكود ولايجلب الصورة الاولى
procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
for i := 1 to 2 do
begin
Image1.Picture.LoadFromFile('c:\adnanfile\adnan'+inttostr(i)+'.jpg');
sleep(1000);
end;
end;
السلام عليكم أول شي أخي جرب هذا
var i:integer=0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1
for i := 1 to 2 do
begin
Image1.Picture.LoadFromFile('c:\adnanfile\adnan'+inttostr(i)+'.jpg');
end;
end;
لاتنسا ال interval إعمله قيمة 1000 يعني ثانية 1
هذا كود استعملت فيه Ressource stream فقد خبأت كل الصور في التطبيق نفسه على شكل ressource ثم أقوم باستدعائها أثناء التنفيذ واحدة تلوة الأخرى..
التطبيق بسيط لكن النتيجة جميلة جدا.
أرجو أن ينال إعجابكم ;)
تم تعديل هذه المشاركة بواسطة ikossan في 12 يناير 2005 في 02:19
سأتغيب عن المنتدى وستكون لي زيارات خفيفة بين الحين و الحين
يا صاحب الهم إن الهم منفرج.....................أبشر بخير فإن الفارج الله.
اليأس يقطع أحيانا بصاحبه..........................لا تيأس فإن الكافي الله.
الله يحدث بعد العسر ميسرة.........................لا تفزعن فإن الصانع الله.
إذا بليت فثق بالله وارض به...................فإن الذي يكشف البلوى هو الله.
و الله ما لك غير الله من أحد.......................فحسبك الله في كل لك الله
أخوكم مراد
هذا الموضوع مغلق.