PROCEDURE CenterWindow (win_name VARCHAR2) IS
w_mdi	NUMBER;
h_mdi	NUMBER;
w_win NUMBER;
h_win NUMBER;
x_win NUMBER;
y_win NUMBER;
BEGIN w_mdi := GET_WINDOW_PROPERTY( forms_mdi_window, WIDTH);
 h_mdi := GET_WINDOW_PROPERTY( forms_mdi_window, HEIGHT);
 
 w_win := GET_WINDOW_PROPERTY( win_name, WIDTH);
 h_win := GET_WINDOW_PROPERTY( win_name, HEIGHT);

x_win := (w_mdi/2) - (w_win/2);
y_win := (h_mdi/2) - (h_win/2);

set_window_property(win_name, X_POS, x_win);
set_window_property(win_name, Y_POS, y_win);
END;

بسم الله ماشاء الله فكرة ممتازة .. وشغالة تمام .. الله ينور عليك ويزيدكم من علمه ..
ولكن الاحظ أن الارتفاع غير مضبوط من ناحية التوسيط خصوصا لما تكون الشاشة مودال

اخوك ، راجي رحمة الله / أبو عمر

رضي الله عنك وارضاك
ومن النار وقاك
وللجنة دعاك
والفردوس مأواك
اللهم آمين

جزاك الله خير

شكرا على الموضوع الرائع

اللة ينور عليك يا اخى والى المزيد من العطاء بأذن اللة

اخوك حيدر

PROCEDURE CenterWindow (win_name VARCHAR2) IS
	w_mdi	NUMBER;
	h_mdi	NUMBER;
	w_win	NUMBER;
	h_win	NUMBER;
	x_win	NUMBER;
	y_win	NUMBER;
BEGIN
  w_mdi := GET_WINDOW_PROPERTY( forms_mdi_window, WIDTH);
  h_mdi := GET_WINDOW_PROPERTY( forms_mdi_window, HEIGHT);
  
  w_win := GET_WINDOW_PROPERTY( win_name, WIDTH);
  h_win := GET_WINDOW_PROPERTY( win_name, HEIGHT);

	x_win := (w_mdi/2) - (w_win/2);
	y_win := (h_mdi/2) - (h_win/2);
	
	set_window_property(win_name, X_POS, x_win);
	set_window_property(win_name, Y_POS, y_win);
END;



اين نكتب ذلك الكود

الموضوع بسيط جدا اخى محمد عبدربه وهو انك بتكتب اسم البروسيدر وتديله اسم النافذة فى باراميتر مثل
centerwindow('window1');
اتمنى يكون واضح

ممتاز

والله مش عارف اقول لك ايه
جزاك الله والمسلمين كل خير

مع الاسف انا شاركت في الموقع لكن ولا شخص اعطاني جواب نعم استفد من بعض الكودات لكن حاليا لا استطيع كيف ابني نظام مصمم في قواعد البيانات اوراكل كامل مع السورس كود ارجو الرد

مع الاسف انا شاركت في الموقع لكن ولا شخص اعطاني جواب نعم استفد من بعض الكودات لكن حاليا لا استطيع كيف ابني نظام مصمم في قواعد البيانات اوراكل كامل مع السورس كود ارجو الرد

انا اعتذر ليس قصدي المشاركة السيئة لكن اريد كيف ابدي وانا املك كل المعلومات

حاليا يا اخوتي انا احتاج اى من يرشدني

تسلم اخي الكريم والف شكر ع الكود

تسلم أخي تم التجربة والاستدعاء بنجاح 

مشكور اخي على مجهودكلكن عندما تكون الشاشة في وضع التكبير maximam فهذا الكود لايعملياريت ترسل نفس الكود يعمل توسيط على الكانفاز canvas او ارساله على ايميلي [email protected] وشكرا..

PROCEDURE set_win_pos(win_name varchar2) IS

  w1 number;

  w2 number;

  h1 number;

  h2 number;

BEGIN

  w1 := get_window_property(forms_mdi_window,width);

  w2 := get_window_property(win_name,width);

  

  h1 := get_window_property(forms_mdi_window,height);

  h2 := get_window_property(win_name,height);

  

  set_window_property(win_name,x_pos,round((w1-w2)/2));

  set_window_property(win_name,y_pos,round(((h1-34)-h2)/2));

END;