• 0
yazafer

كتم صوت النظام Default Beepعند التنقل بين المكونات

سؤال

السلام عليكم :

استخدم عادة للتنقل بين المكونات ضمن برامجي الكود التالي :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = 13 then
edit2.SetFocus;
end;

أو كود آخر يشبهه ..

والمشكلة أنه عند التنقل بين المكونات يظهر صوت النظام ding والمعرف ضمن أصوات النظام Default Beep .

السؤال كيف يمكنني كتم هذا الصوت مؤقتأ وإعادته وقت ما أشاء . شكرا لكم سلفاً والسلام عليكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

عفواً السطر if key = 13 then خطأ

والصواب if key =#13 then أي يتم التنقل بضغط مفتاح Enter

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم :

الحقيقة بعد أن كتبت السؤال السابق .. وجدت الحل في موقع آخر

وللفائدة هو كما يلي وببساطة

لكتم الصوت

//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

 

والسلام عليكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم...

 

يمكنك أيضاً إلغاء المفتاح ضمن الحدث OnKeyPress نفسه دون استعمال دوال API:

    if Key = #13 then begin        Key := #0;        Edit2.SetFocus;    end;

نرجو الاستفادة و السلام.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .