+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أجعل برنآمجي يقبل زر Enter في الكيبورد لدي (/showthread.php?tid=262)
كيف أجعل برنآمجي يقبل زر Enter في الكيبورد لدي - delphi4you - 08-06-2008
السلام عليكم ورحمة الله وبركاته ياخواني
لنفرض مثلا لدي برنآمج يطآلبني بكلمه سر
بمجرد كتابتي لكلمه السر الصحيحه أقوم بالظغط على زر انتر ويقوم بالدخول الى البرنامج توماتيكيا
أو مثلا لدي العنصر edit وادخلت فيه رابط موقع ليفتحه مثلا أقوم بالظغط على زر انتر ويفتحه اتوماتيكا
هل فهمتم ما اقصده ؟
شكرا للقائمين على هذا المنتد
كيف أجعل برنآمجي يقبل زر Enter في الكيبورد لدي - محمد عبد العزيز - 09-06-2008
يمكن استخدام الحدث OnKeyPress للمكون Edit وتتحقق من الضغط على الزر Enter
كود :
if Key=#13 then Begin
تكتب هنا الكود الذي تريد تنفيذه بعد الضغط على الزر "انتر"//
End;كيف أجعل برنآمجي يقبل زر Enter في الكيبورد لدي - delphi4you - 09-06-2008
وفقك الله فيما تحبه ويرضاه يا أخي المشرف
كيف أجعل برنآمجي يقبل زر Enter في الكيبورد لدي - nabilkeb - 09-06-2008
كل شيء تم توضيحه جيــدا و تطبيقيا في المرفقات
و شكرا
هل صار الامر واضح؟
كيف أجعل برنآمجي يقبل زر Enter في الكيبورد لدي - imad_soft - 10-05-2010
كذلك هذا الكود
كود :
procedure TForm1.sEdit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
sspeedbutton1.Clickكيف أجعل برنآمجي يقبل زر Enter في الكيبورد لدي - arab_co - 26-08-2010
السلام عليكم
if Key=#13 then Begin
تكتب هنا الكود الذي تريد تنفيذه بعد الضغط على الزر "انتر"//
End;
هذا الكود لا يعمل في الدلفي 2010
كيف أجعل برنآمجي يقبل زر Enter في الكيبورد لدي - kachwahed - 26-08-2010
الموضوع قديم لكن لا بأس...
إقتباس :هذا الكود لا يعمل في الدلفي 2010يعمل بشكل عاد. تحقق مما كتبت وأين كتبت.
أسهل طريقة ضع TButton واضبط Default على True
ولقنص الزر Escape اضبط Cancel على True.