تحية طيبة لكافة الاعضاء الأكارم،،،،

أود أن أعمل timer ل form بحيث إذا لم يتم عمل أي action في ال form يخرج من البرنامج.

شاكرين لكم حسن تعاونكم...

الأخ الكريم ، هناك بالمنتدي العديد من الأمثلة والشروحات علي كيفية بناء Timer للنموذج ، ياريت تبحث عن جملة Create_Timer !!!

علي العموم أنظر الي الخطوات التالية :

في الحدث WHEN-NEW-FORM-INSTANCE علي مستوي الموديول Form قم بإدراج الكود التالي :

Declare
tim   Timer;
Begin 
tim := Create_Timer('tim1',1000,REPEAT); --NO_REPEAT
End;

حيث تم إنشاء متغير تحت إسم tim وذلك من نوع كائن Timer ، بعد ذلك إستخدمنا دالة Create_Timer لإدراج مؤقت بمواصفات معينة ، أولاً تم تسميتة تحت إسم tim1 ، بعد ذلك حددنا الفترة الزمنية بين التنفيز هو ( 1000 ) ، حيث الحاسب الآلي يتعامل بالميلي ثانية ، والقيمة 1000 بمثابة ثانية واحدة ، بعد ذلك حددنا عدد مرات التكرار Repeat ، وإذا لم يتم تحديد القيمة Repeat فيمنحها كقيمة إفتراضية ، ولكن إذا كنت ترغب في إنشاء Timer ينفذ مرة واحدة ومن ثم يلغي العد يمكنك من خلال تغيير القيمة Repeat الي القيمة No_Repeat .

الآن أخي يجب علينا إستخدام حدث WHEN-NEW-ITEM-INSTANCE علي مستوي الموديول Form ، ويتم كتابة أي جملة بداخلة يقوم بتنفيذها ، مثلاً :

Message('Welcome to Arab OUG');

بحيث أن يتم عرض رسالة ترحيب للمستخدم كل ثانية





شكراً أخي ، وأتمني من حضرتك أن تبحث جيداً بالمنتدي

السلام عليكم