السلام عليكم ورحمة الله وبركاته
نعود مجددا بعد مدة بطرح هذا السؤال نقلا من احدى صفحات التواصل الاجتماعي
لطرح حل الاشكال بالصورة باستعمال الاكواد
[imgl]http://www10.0zz0.com/2017/12/27/03/493018937.jpg[/imgl]

قبل مواصلة مجموعة أخرى ضخمة المتعلقة بمنصة الوينداوز

كنت بصدد إعداد تجميعية وأحتجت لمنع المستخدم من الخروج من حدود التجميعية فأحببت
أن أقرأ لك هذا الكود الجميل و توفيره هنااا لاستغلاله

1 - ماذا لو يكون مشروعنا يتميز بأنه flat و ننزع الاختيار movable
وفعل الاضافة Memory
2 - نزرع في globbal functions
[html]function EnableWindow(nHWND, bEnable)
local nEnable=0
if bEnable then nEnable = 1 end
DLL.CallFunction("user32.dll", "EnableWindow", nHWND..","..nEnable, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
end
function MouseClipping()
_RECT = Memory.CreateStructure("long, long, long, long");
Memory.SetStructureData(_RECT, 1, 0, nLeft, "");--left
Memory.SetStructureData(_RECT, 2, 0, nTop, "");--top
Memory.SetStructureData(_RECT, 3, 0, nRight, "");--right
Memory.SetStructureData(_RECT, 4, 0, nBottom, "");--bottom
DLL.CallFunction(_SystemFolder.."\\User32.dll", "ClipCursor", _RECT, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
Memory.FreeStructure(_RECT);
end
function Screen_coordinates()
nLeft = 0;
nTop = 0;
nRight = System.GetDisplayInfo().Width;
nBottom = System.GetDisplayInfo().Height;
end
function Do_clipping()
Input.SetText ("Input_left", nLeft);
Input.SetText ("Input_top", nTop);
Input.SetText ("Input_right", nRight);
Input.SetText ("Input_bottom", nBottom);
Page.StartTimer(250);
Label.SetText ("Label4", "Press Alt+F4 to disable clipping.");
Ex_it = 1;
end[/html]3 - في on show
4 - في on timer
[html]nActiveHWND = String.ToNumber(DLL.CallFunction(_SystemFolder.."\ \User32.dll", "GetActiveWindow", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
if nActiveHWND == nHWND then
else
EnableWindow(nHWND, true);
end
MouseClipping();[/html]
--عاين مشروعك حينها تكتشف أنه كان من الأحسن وضع زر للمغادرة
السلام عليكم ورحمة الله تعالى و بركاته