عدم تصقير الفورم عند الضغط دبل كلك علي شريط العنوان

يمكن ان تغير في الخاصية BorderIcons لل Form

تغير BiMaximize الى False

B.M.AbdelAziZ كتب:

يمكن ان تغير في الخاصية BorderIcons لل Form

تغير BiMaximize الى False

نعم

انا لا اريد ان يتم تصغير الشاشة لانها الشاشة الرئيسية للبرنامج

حيث انني وجدت هذا الكود ولكن يعطيني خطا في كلمة themain

var
hMenuHandle : HMENU;
begin
hMenuHandle := GetSystemMenu(themain.Handle, FALSE); //Get the handle of the Form
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_SIZE, MF_BYCOMMAND); //disable resizing

جزاك الله خيرا

السلام عليكم

غير كلمة

themain

باسم الفورم لديك

form1

لكن هدا الكود يمنع توسيع الفورم بالماوس فقط

هذا الكود لا يفي بالغرض

ارجو المساعد

وجزاك الله خيرا

يمكن ان تستعمل خصائص Form في Constraints

ضع في MaxWidth و MaxHeight اكبر قيم التي لا تريد ان تصغر Form لها

شكرا علي المساعدة

وجزاك الله الف خير

انا لا اريدها ان تصغر نهائيا اريدها كما هي (بعرض الشاشة ) لانها الشاشة الرئيسية

الملفات في المرفقات

_____.rar

format82 كتب:

انا لا اريدها ان تصغر نهائيا اريدها كما هي (بعرض الشاشة ) لانها الشاشة الرئيسية

هل جربت ما قلته لك ؟

اقتباس

هل جربت ما قلته لك ؟

نعم قمت بتجربتها لكن لم يفعل شيئا

هل يمكن تعطيل دبل كلك في الماوس حتى لا يتم تصغير الفورم

شكرا لك علي مجوداتك جزاك الله الف خير

عند استخدام ال constraint

maxhight

maxwidth

minhight

minwidth

لن تصغر الفورم او تكبر مهما حصل الامر

يعني مثلا عند عرض النافذة لاول مرة تضع في هذه القيم أحداثيات الشاشة و التي يمكن اخذها كما يلي

procedure TForm1.FormCreate(Sender: TObject);
begin
  self.Left:= Screen.WorkAreaLeft;
  self.Top:= Screen.WorkAreaTop;
  self.Constraints.MinHeight:= Screen.WorkAreaHeight;
  self.Constraints.MinWidth:=  Screen.WorkAreaWidth;
  self.Constraints.MaxHeight:=  Screen.WorkAreaHeight;
  self.Constraints.MaxWidth:=  Screen.WorkAreaWidth;
end;

أرجوا ان يكون هذا هو المطلوب

شكرا علي المساعدة

لكن هذا الكود عندما يكون الشاشة عادية

ارجو منك فتح الملف المرفق في الاعلي

حيث يكون الشاشة بكامل عرض شاشة (لا يظهر فيها قائمة ابداء ولا شريط المهام الخ)

انا لا اريد ان يصغر الشاشة نهائيا اريدها كما هي بكامل عرض الشاشة (في وضعها اساسي لا يتاثر باي شي )

بارك الله فيك علي المساعدة

هل هذا هو المطلوب؟؟

borderstyle = bsNone

ليس هذا هو المطلوب انظر في الملف المرفق انا اريدها كما هي

ان لا يتاثر بدبل كلك في شريط العنوان

1- أرجوا توضيح ما الفائدة من عمل ما تريد بشكل واضح و صريح

جرب

align = alClient

و لكن قائمة أبدأ لا تختفي

و هناك كود لأخفائها

2- قد يكون هناك طريقة ملتوية لتعطيل النقر المزدوج على شريط العنوان, أولا اشرح ما الفائدة حتى يتم التجريب

سلام عليك

اقتباس

1- أرجوا توضيح ما الفائدة من عمل ما تريد بشكل واضح و صريح

شكل البرنامج يكون جميل وحتي يكون تركيز المستخدم يكون علي الشاشة (البرنامج يكون بكامل عرض الشاشة)

هنالك ملف مرفق بها شرح ما اريده

بارك الله فيك

___________.rar

أعط الخاصة borderstyle القيمة bssizetoolwin

اقتباس

أعط الخاصة borderstyle القيمة bssizetoolwin

انا اعطيت borderstyle قيمة bsSingle حتي يكون بكامل الشاشة

جزاك الله خيرا