السلام عليكم ورحمة الله وبركاته
عندما أضغط على الكائن Edit بالزر Enter من لوحة المفاتيح يعطي صوت طنين فهل يمكن إخفاء هذا الصوت دون الحاجة إلى تغير هذا الكائن .
وشكرا لكم .
كيف يمكن منع ظهور صوت الخطأ
مغلق
procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: char); begin if Key = #13 then begin Key := #0; end; end;
:)
محمـــــــــد
المملكه العربيه السعوديـــه
[الفريق العربي للبرمجه الأفضـل دائما]
::::::::::::::::::::::::::::::::::::
msvbvm60.dll = فيجوال بيسك
.................= دلفــــــــــــــي
::::::::::::::::::::::::::::::::::::
هذا الموضوع مغلق.