السلام عليكم :
استخدم عادة للتنقل بين المكونات ضمن برامجي الكود التالي :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = 13 then
edit2.SetFocus;
end;
أو كود آخر يشبهه ..
والمشكلة أنه عند التنقل بين المكونات يظهر صوت النظام ding والمعرف ضمن أصوات النظام Default Beep .
السؤال كيف يمكنني كتم هذا الصوت مؤقتأ وإعادته وقت ما أشاء . شكرا لكم سلفاً والسلام عليكم
عفواً السطر if key = 13 then خطأ
والصواب if key =#13 then أي يتم التنقل بضغط مفتاح Enter
السلام عليكم :
الحقيقة بعد أن كتبت السؤال السابق .. وجدت الحل في موقع آخر
وللفائدة هو كما يلي وببساطة
لكتم الصوت
//Disable system beep
SystemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_SENDWININICHANGE);
ولتشغيله
//Enable system beep
SystemParametersInfo(SPI_SETBEEP, 1, nil, SPIF_SENDWININICHANGE);
الحل من الرابط
http://stackoverflow.com/questions/3141698/disable-system-beep-on-tspinedit-when-pressing-enter
والسلام عليكم
السلام عليكم...
يمكنك أيضاً إلغاء المفتاح ضمن الحدث OnKeyPress نفسه دون استعمال دوال API:
if Key = #13 then begin
Key := #0;
Edit2.SetFocus;
end;نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…