كيف أجعل برنآمجي يقبل زر Enter في الكيبورد لدي

[delphi4you]

السلام عليكم ورحمة الله وبركاته ياخواني

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

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

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

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

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

[محمد عبد العزيز]

يمكن استخدام الحدث OnKeyPress للمكون Edit وتتحقق من الضغط على الزر Enter

كود :

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

والسلام عليكم ورحمة الله

[delphi4you]

وفقك الله فيما تحبه ويرضاه يا أخي المشرف

[nabilkeb]

كل شيء تم توضيحه جيــدا و تطبيقيا في المرفقات
و شكرا
هل صار الامر واضح؟

[imad_soft]

كذلك هذا الكود

كود :

procedure TForm1.sEdit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=vk_return then sspeedbutton1.Click

[arab_co]

السلام عليكم


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

هذا الكود لا يعمل في الدلفي 2010

[kachwahed]

الموضوع قديم لكن لا بأس...

هذا الكود لا يعمل في الدلفي 2010

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