yazafer

السلام عليكم : الحقيقة بعد أن كتبت السؤال السابق .. وجدت الحل في موقع آخر وللفائدة هو كما يلي وببساطة لكتم الصوت //Disable system beep SystemParametersInfo ( SPI _ SETBEEP , 0 , nil , SPIF _ SENDWININICHANGE ); ولتشغيله //Enable system beep SystemParametersInf…

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

السلام عليكم : استخدم عادة للتنقل بين المكونات ضمن برامجي الكود التالي : procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = 13 then edit2.SetFocus; end; أو كود آخر يشبهه .. والمشكلة أنه عند التنقل بين المكونات يظهر صوت النظام ding و…