delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف أجعل برنآمجي يقبل زر Enter في الكيبورد لدي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته ياخواني

لنفرض مثلا لدي برنآمج يطآلبني بكلمه سر

بمجرد كتابتي لكلمه السر الصحيحه أقوم بالظغط على زر انتر ويقوم بالدخول الى البرنامج توماتيكيا

أو مثلا لدي العنصر edit وادخلت فيه رابط موقع ليفتحه مثلا أقوم بالظغط على زر انتر ويفتحه اتوماتيكا

هل فهمتم ما اقصده ؟

شكرا للقائمين على هذا المنتد Smile


يمكن استخدام الحدث OnKeyPress للمكون Edit وتتحقق من الضغط على الزر Enter
كود :
if Key=#13 then Begin تكتب هنا الكود الذي تريد تنفيذه بعد الضغط على الزر "انتر"// End;
والسلام عليكم ورحمة الله
وفقك الله فيما تحبه ويرضاه يا أخي المشرف
كل شيء تم توضيحه جيــدا و تطبيقيا في المرفقات
و شكرا
هل صار الامر واضح؟
كذلك هذا الكود
كود :
procedure TForm1.sEdit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=vk_return then sspeedbutton1.Click
السلام عليكم


if Key=#13 then Begin
تكتب هنا الكود الذي تريد تنفيذه بعد الضغط على الزر "انتر"//
End;

هذا الكود لا يعمل في الدلفي 2010
الموضوع قديم لكن لا بأس...
إقتباس :هذا الكود لا يعمل في الدلفي 2010
يعمل بشكل عاد. تحقق مما كتبت وأين كتبت.
أسهل طريقة ضع TButton واضبط Default على True
ولقنص الزر Escape اضبط Cancel على True.