HaMiDo عضو نشيط
عدد المساهمات : 40
| موضوع: منع المكون TEdit قبول الحروف! 2016-01-22, 11:09 am | | هذا مثال في دلفي عن منع المكون 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; ولعمل عكس هذا، أي إجبار المكون TEdit قبول الحروف والرموز الأخرى فقط وعدم قبول الأرقام نقوم بما يلي: - نتبع نفس الخطوات الأولى لكن هذه المرة نقوم بتغيير كلمة واحدة فقط في الكود وهي: Not يصبح الكود كالتالي:
كود : - الكود:
-
begin if (Key in ['0'..'9', #8]) then begin Key := #0; Beep; end; end;
|
|