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

[delphi4you]

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

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

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

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

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

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

[B.M.AbdelAziZ]

يمكن استخدام الحدث 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.