السلام عليكم

أخوتي الأعزاء ...

هل هناك طريقة معينة أو Function يقوم بتعطيل كبسة Caps Lock ؟


و هل هناك إجراء معين نستطيع من خلاله إظهار رسالة تحذيرية للمستخدم بحالة الـ Caps Lock عنده؟

تحياتي

أخوتي الأعزاء لقد قمت بتجربة هذا الكود

declare
key_pressed VARCHAR(30) := 'FALSE';
begin
key_pressed := :system.mouse_button_modifiers;

if upper(key_pressed) = 'CAPS LOCK+' then
message('Caps Lock key is turned on');
message('Caps Lock key is turned on');
end if;
end;

و لكن الأمر لم ينجح



و لم يعطيني البرنامج أي رسالة خطأ


فهل من حلول أخرى ؟؟؟ أو تعديلات على هذا الكود ؟؟؟

تم تعديل 19 يناير 201115 سنة بواسطة أبو فلسطين

ممكن عن طريق الاسكى كود للحروف الكابيتل اذا كان اول حرف الاسكى تبعه مابين 200 و230 مثلا يكون معناه الكابس مظغوطة
مادرى الارقام بالظبط ولكن جرب هذا الطريق

السلام عليكم
اخي العزيز ابو فلسطين
ممكن تستخدم خاصية CASE RESTRICTION
في عنصر الادخال وتغيروا الى LOWER
في هذه الحالة ما حيدخل الا احرف صغيرة حتى لو كان CAPS LOCK شغال
مش حيدخل الا احرف صغيرة
وشكرا


بالتوفيق

حاول ان تستخدم Caps Lock بدلا من CAPS LOCK


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

اما اذا اردت الكود الخاص بك فانتبه لما ذكرت لك

تم تعديل 20 يناير 201115 سنة بواسطة skybird1961

السلام عليكم

أخوتي الأعزاء ...

هل هناك طريقة معينة أو Function يقوم بتعطيل كبسة Caps Lock ؟


و هل هناك إجراء معين نستطيع من خلاله إظهار رسالة تحذيرية للمستخدم بحالة الـ Caps Lock عنده؟

تحياتي

أخي الفضل صممت هذا المثال خصيصاً لمشكلتك وهي تحسس حال الزر Caps Lock وهذا الرابط
تحسس حالة الزر Caps Lock

تم تعديل 20 يناير 201115 سنة بواسطة scince

أخي الفاضل أبو فلسطين أضفت مثال جديد الى جانب تحسس حالة الأزرار capslock , numlock , scrollock يمكنك التحكم بتشغيلهم On / Off
وهذا الرابط
شاشة التحكم باأزرار

الأخوة الكرام و الأعزاء

أشكركم جزيلاً على هذا التفاعل و الذي أشعرني فعلاً بمدى إهتمامكم

و اسمحوا لي أن أضع رداً على كل منكم


الأخ العزيز S3D
قد يكون الحل الذي قدمته في ردك هو من أقرب الحلول بالنسبة لي و أكثرها منطقية ... و لذلك قمت بتجربتها ... و قد اقتربت من الحل ... إلاّ أنني لا زلت أعاني من خلل بسيط يحجبني قليلاً عن النجاح في حل هذه القضية ... سأعرض عليك الكود الذي كتبته :

BEGIN
IF :V_USERID BETWEEN CHR(65) AND CHR(90) THEN
:DISPLAY := 'Caps Lock is turned ON';
ELSE
:DISPLAY := 'Caps Lock is turned OFF';
END IF;
END;

المشكلة هي أنه يقوم بإعطائي رسالة بحالة الـ Caps Lock و لكن لا يعطيني أي رسالة في حال قمت بالضغط على كبسة الـCaps Lock يعني مثلاً لو كتبت في خانة كلمة المرور : AsdfghJklF
هنا تظهر رسالة بأن 'Caps Lock is turned ON' و لكن عندما أبدأ بالحرف الثاني من كلمة المرور ( s ) فأنه لا يعطي رسالة تنبيه بتغير حالة الحرف !!! و لكنني لا زلت أحاول ...



أخي العزيز Eng_AL_kamel

هذه الطريقة أعرفها و استخدمتها مسبقاً لخانة اسم المستخدم و لكن المطلوب مني هو ظهور رسالة تبين حالة الأحرف ... لك كل الشكر و التقدير من أعماق قلبي.



الأخ الكريم skybird1961

نعم جربت أن أضع Caps Lock بدلا من CAPS LOCK

و لكن بلا جدوى :

if upper(key_pressed) = 'CAPS LOCK+' then

if key_pressed = 'Caps Lock+' then

أشكرك أخي جزيلاً


أخي القدير scince

لا أعرف كيف أشكرك على ما قدمته لنا يا أخي ... حصلت على ما أريد و لكن ... مشكلتي ما زالت قائمة و هي أن يتحسس حالة الأحرف حرفاً حرفاً ... يعني بالضبط ما أريد أن أصل له هو ظهور رسالة تظهر لي حالة الأحرف بالضبط كالرسالة التي تظهر في كلمة المرور في الهوت ميل ... "كلما كبست زر Caps Lock يظهر رسالة تلقائية"

الأمر الآخر هو أن ملف الـ Dll الذي أرفقته يصعّب علي تغيير نص الرسالة ... أنا بالتأكيد أحترم حقوق الملكية و حقوق الإبداع و التميز ... فهل لي أن أعطيك نص الرسالة الذي أريد و تقوم بتعديل ملف الـDll ؟؟؟

و حاول أخي أن تساعدني في حل مشكلة "كلما كبست زر Caps Lock يظهر رسالة تلقائية"

و حتى ذلك الحين سأبذل جهداً أكبر في هذه المسألة عسى أن أجد حلاً

لك أنت و أخوتي من أعماق قلبي جزيل الشكر و كل الاحترام و التقدير على جهودكم الجبارة

بارك الله بكم يا أحبائي

أخي الكريم أبو فلسطين العزيزة والغالية علينا من يوم ماقرأت مما تعانيه وأنا أحاول إحضار بالونات الويندوس الى أوراكل طبعاً بواسطة ++VC لكن لم تضبط معي الى الأن طبعاً من ضمن البلونات الخاص بالكابس لوك وأول ماتضبط بأوافيك فيها وسأجعل لك الحرية بإدخال الرسالة اللي تريدها في المثال السابق بس إن شاء الله أفرغ من عملي ولا يهمك أخوك

هل هناك طريقه لتعطيل كبسه

لو مش عاوز المستخدم يكتب حروف كبيرة ,

في خاصية اسمها Case Restriction عدلها لـ Lower