05-02-2008, 08:01 AM
السلام عليكم ورحمة الله
هذا مثال في دلفي عن منع المكون TEdit في دلفي من قبول الحروف وإجباره على قبول الأرقام فقط.
مثال:
1- نضع مكون TEdit في فورم (Form)
2- نذهب بعدها إلى الأحداث (Event) وبالخصوص إلى "OnKeyPress"
3- نضغط مرتين على الحدث من الجهة اليمنى ونكتب الكود (Code) التالي يعد Begin مباشرة:[/COLOR]
ولعمل عكس هذا، أي إجبار المكون TEdit قبول الحروف والرموز الأخرى فقط وعدم قبول الأرقام نقوم بما يلي:
- نتبع نفس الخطوات الأولى لكن هذه المرة نقوم بتغيير كلمة واحدة فقط في الكود وهي: Not
يصبح الكود كالتالي:
وبالتوفــــــيق للجميع ...
هذا مثال في دلفي عن منع المكون 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;