دروس مجانية ( الجود من الموجود ) - الدرس الأول

الدرس الأول :

كيف تقوم بإنشاء نموذج (Form) داخل (MDIForm) بشرط أن يكون بالمنتصف الطريقة سهلة :

نكتب الكود التالي في زناد PRE-FORM على مستوى النموذج :

DECLARE

   CAN_W NUMBER;

   CAN_H NUMBER;

   MDI_W NUMBER;

   MDI_H NUMBER;

   WXPOS NUMBER;

   WYPOS NUMBER;

BEGIN

   SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW, WINDOW_STATE, MAXIMIZE);

   MDI_W := GET_WINDOW_PROPERTY(FORMS_MDI_WINDOW, WIDTH);

   MDI_H := GET_WINDOW_PROPERTY(FORMS_MDI_WINDOW, HEIGHT);

   CAN_W := GET_CANVAS_PROPERTY('CANVAS2', WIDTH);

   CAN_H := GET_CANVAS_PROPERTY('CANVAS2', HEIGHT);

   WXPOS := ((MDI_W - CAN_W) / 2);

   WYPOS := ((MDI_H - CAN_H) / 2);

   SET_WINDOW_PROPERTY('WINDOW1',POSITION, WXPOS, WYPOS);

END;

لأخذ الكود صحيح إنسخ الكود السابق و ألصقه في مذكرة (NotePad) ثم حول إلى اللغة الإنجليزية بالضغط على ٍShift + Ctrl .

[عدلت بواسطة محمد بدوي ت:06-06-2001 س: 02:10 PM]