+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : منع المكون TEdit قبول الحروف! (/showthread.php?tid=9)
منع المكون TEdit قبول الحروف! - delphi4ever - 05-02-2008
السلام عليكم ورحمة الله
هذا مثال في دلفي عن منع المكون TEdit في دلفي من قبول الحروف وإجباره على قبول الأرقام فقط.
مثال:
1- نضع مكون TEdit في فورم (Form)
2- نذهب بعدها إلى الأحداث (Event) وبالخصوص إلى "OnKeyPress"
3- نضغط مرتين على الحدث من الجهة اليمنى ونكتب الكود (Code) التالي يعد Begin مباشرة:[/COLOR]
كود :
begin
if not (Key in ['0'..'9', #8]) then
begin
Key := #0;
Beep;
end;
end;- نتبع نفس الخطوات الأولى لكن هذه المرة نقوم بتغيير كلمة واحدة فقط في الكود وهي: Not
يصبح الكود كالتالي:
كود :
begin
if (Key in ['0'..'9', #8]) then
begin
Key := #0;
Beep;
end;
end;منع المكون TEdit قبول الحروف! - metal - 13-02-2008
ماذا يعني #8 ؟
منع المكون TEdit قبول الحروف! - محمد عبد العزيز - 13-02-2008
بسم الله الرحمن الرحيم
metal كتب :ماذا يعني #8 ؟المفتاح رقم 8 من لوحة المفاتيح Keyboard
وهو المفتاح DEL للحذف يسارا
والسلام عليكم ورحمة الله
منع المكون TEdit قبول الحروف! - metal - 14-02-2008
ممتاز, اذا استطيع جعلها تدعم الفاصلة ايضا:
كود :
begin
if not (Key in ['0'..'9', #8, '.']) then
begin
Key := #0;
Beep;
end;
end;منع المكون TEdit قبول الحروف! - merouane - 22-02-2008
السلام عليكم
metal كتب :ممتاز, اذا استطيع جعلها تدعم الفاصلة ايضا:
من الأحسن ان يكون كالآتي
كود :
if not (Key in ['0'..'9', #8, DecimalSeparator]) then
begin
Key := #0;
Beep;
end;الحكمة من ذلك هو أنك لا تعلم هل '.' أم ',' هي المستعملة من طرف النظام كتعبير عن الفاصلة
تحياتي
منع المكون TEdit قبول الحروف! - Free_M - 06-12-2008
بهذه الافكار الجميلة وقراءت كل الاحتمالات تجعل الكود صغير و فعال
الله يبارك فيك اخي delphi4ever
وصلت الفكرة
الله يبارك فيك اخي delphi4ever
وصلت الفكرة
منع المكون TEdit قبول الحروف! - TheNapsterBoy - 31-03-2009
بكل بساطة الكود يقوم بالبحث في مجموعة الحروف ['0'..'9', #8, DecimalSeparator] و التي تمثل الارقام و الفاصلة و كود زر DEL في حالة عدم وجود الزر في تلك المجموعة فانه لا يظهر الحرف على TEdit بتعويضه ب NULL = #0
منع المكون TEdit قبول الحروف! - Dr.MOT - 31-03-2009
السلام عليكم
بارك الله فيك ,,
ما وظيفة الدآلة beeb ?
وشكرا مرة أخرىا
منع المكون TEdit قبول الحروف! - TheNapsterBoy - 01-04-2009
الدالة beep تعطيك صوت في الوندوز يشير الى حدوث عملية ممنوعة
لاحظ انه يختلف عن الصوت الناتج عم خطأ في النظام بل يشبه نوها ما ضوت رمي ابرة
منع المكون TEdit قبول الحروف! - TF6M - 01-04-2009
تحتاج دالة الـ Beep بارامتران (التوتر + زمن التنفيذ) ونجد هده الدالة في : KERNEL32.DLL فقط تستطيع أن تسدعيها
و ترى بنفسك أحسن !! .