بسم الله الرحمن الرحيم
نبدأ الخطوات
1-أنشئ فورمة جديدة بكنترول بلوك وسميه BLOCK3 وكنفس جديد
2-اعمل عليها TEXT_ITEM وسميه T_X واعمل BUSH_BUTTON وسميه P_B
3-اعمل تريجر WHEN_NEW_FORM_INSTANCE واكتب فيه الكود التالى
:GLOBAL.SEC:='1';
DECLARE
TIM TIMER;
BEGIN
TIM:=FIND_TIMER('TIMER1');
IF NOT ID_NULL(TIM) THEN
DELETE_TIMER('TIMER1');
END IF;
TIM:=CREATE_TIMER('TIMER1',300,REPEAT);
END;وعلى مستوى الفورمة ايضا اعمل تريجر WHEN_TIMER_EXPIRED واكتب فيه الكود التالى
DECLARE
X NUMBER;
T_X ITEM;
P_STATUS VARCHAR2(20);
BEGIN
X:=:GLOBAL.SEC;
IF X>1 THEN
T_X:=FIND_ITEM('BLOCK3.T_X');
IF :T_X IS NULL THEN
SET_ITEM_PROPERTY('P_B',VISIBLE,PROPERTY_FALSE);
ELSIF :T_X IS NOT NULL THEN
P_STATUS:=GET_ITEM_PROPERTY('P_B',VISIBLE);
IF P_STATUS='FALSE' THEN
SET_ITEM_PROPERTY('P_B',VISIBLE,PROPERTY_TRUE);
SET_ITEM_PROPERTY('P_B',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('P_B',NAVIGABLE,PROPERTY_TRUE);
END IF;
END IF;
END IF;
X:=X+1;
:GLOBAL.SEC:=X;
END;وبعد كده اعمل COMPILE وRUN
واضف اى شئ فى الTEXT_ITEM ولاحظ الفرق
وشكرا لاعضاء هذا المنتدى الجميل
الذى علمنى الكثير
النموذج فى المرفقات