السلام عليكم

 

هذا الكود يقوم بتكبير الشاشة بالكامل

 

انسخو هذا الكود في

 

when_new_form_instance

 

 

:system.message_level:=20;
set_window_property(forms_mdi_window,window_state,maximize);
declare
 w number;
 h number;
 x number;
 y number;
  w1 number;
 h1 number;
begin
 w:=Get_Window_Property(forms_mdi_window,WIDTH) ;
 h:=Get_Window_Property(forms_mdi_window,HEIGHT) ;
 w1:=Get_Window_Property('window1',WIDTH) ;
 h1:=Get_Window_Property('window1',HEIGHT) ; 
  x      := Get_Window_Property('window1',X_POS);
  y      := Get_Window_Property('window1',Y_POS);  

show_window('window1',(w-w1)/2,(h-h1)/6);

end;

 

جزاك الله خيرا .. جاري التجربة ..

امين يارب العالمين

امين يارب العالمين

السلام عليكم ..

كيف يا نادر ..

انا عندي هذه المشكله مع دفلوبر 10 جي وللاسف لم تعمل لدي

محمد المرفدي <_<

هو انت ليه بتجيب العرض والطول بتاع الويندو والـ x and y positions ؟

ما تكبر بـ set_window_property وخلاص .