[MARQ=LEFT]
الاخوة الكرام هذا كود للتو عملته واشتغل معي وهو لمنع طباعة الاحرف في الادت بوكس ...
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['a' .. 'z'] then begin
key :=#0;
end else
if key in ['A' .. 'Z'] then begin
key :=#0;
end;
end;
end
.
[/MARQ][/ALIGN]
شكرا جزيلا لك أخي
الصراحه يمشي عجوت امسكه فمتبته هنا
اقتباسprocedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin
if key in ['a' .. 'z'] then begin
key :=#0;
end else
if key in ['A' .. 'Z'] then begin
key :=#0;
end;
end;
end
يمكنك أستخدام هذا الكود البسيط ويقوم بنفس العمل
If not( Key in[ '0'..'9',#9,#8] )then
Key:=#0;
ولكى مني أطيب تحية:D ;)
ل شي شي .. الكود الاول بيمنع استخدام الاحرف والثاني بيمنع استخدام خلاف الارقام .. وبالتالي يمكن استخدام الرموز وخلافو ... كل كود له وجوبه
أهلاً دكتور
ممكن تعطينا كود يمنع خلاف الأرقام والحروف يعني ( الإشارات أو Char )>
لو تكرمت والسؤال موجه للجميع
والسلام عليكم ورحمة الله وبركاته .:D :D
(f)
هذا الموضوع مغلق.