EasyDelphi Q&A
+4 تصويتات
38 مشاهدات
السلام عليكم

مشكلتي تكمن في انه  عند حدث on key press للاديت سميتها password_edit والذي جعلته يتحقق فيما اذا كان المفتاح المضغوط هو Entrer يقوم بالضغط على زر ok_btn كما هو مبين

procedure TLogin_form.password_editKeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then ok_btn.Click;

end;

كل شيئ يعمل بشكل عادي، لكن عند الضغط على زر Enter يرافقه صوت اعتبره مزعج فهل يوجد حل لازالته.
تم إغلاقه بملاحظة: تمت الاجابة عليه
سُئل في تصنيف vcl بواسطة (2,110 نقاط)
مغلق بواسطة | 38 مشاهدات

1 إجابة واحدة

+3 تصويتات
أفضل إجابة

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

if key = #13 then
begin
key:= #0;
btn_ok.click;
end;

 

تم الرد عليه بواسطة (1,210 نقاط)
مختارة بواسطة
تم حل المشكل، جازاك الله خيرا يا اخي.

اسئلة متعلقة

+1 تصويت
1 إجابة
سُئل نوفمبر 15، 2018 في تصنيف vcl بواسطة Amar Gozim (10,690 نقاط) | 112 مشاهدات
+3 تصويتات
2 إجابة
سُئل نوفمبر 6، 2018 في تصنيف vcl بواسطة MohammedAmine (360 نقاط) | 91 مشاهدات
+3 تصويتات
2 إجابة
سُئل سبتمبر 3، 2018 في تصنيف vcl بواسطة َAbdallah (2,110 نقاط) | 68 مشاهدات
+2 تصويتات
2 إجابة
سُئل أغسطس 7، 2018 في تصنيف vcl بواسطة KHALED (7,490 نقاط) | 55 مشاهدات
+1 تصويت
1 إجابة
سُئل أبريل 19 في تصنيف SQL Server بواسطة hidenpain (860 نقاط) | 79 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

396 سؤال
633 إجابة
1,130 تعليق
236 مستخدم