مفتاح Enter بدلا من مفتاح Tab

بسم الله الرحمن الرحيم

مجرب في delphi 6 windows-xp .

: In the form's PRIVATE section enter

   Procedure CMDialogKey(Var Msg:TWMKey); message CM_DIALOGKEY; 



In the form's IMPLEMENTATION section enter: 



   Procedure TForm1.CMDialogKey(Var Msg: TWMKey); 

   Begin 

      If NOT (ActiveControl Is TButton) Then 

{لماذا هذا الشرط ؟ السبب معروف طبعـآ .}

         If Msg.Charcode = 13 Then 

            Msg.Charcode := 9; 

      inherited; 

   End;

تجد هذا الـ code و طرق أخرى هنا :

http://www.delphi3000.com/articles/article_2166.asp

http://www.delphi3000.com/articles/article_2658.asp

اخي العزيز

لقد تم الاجابة على هدا السؤال من قبل فارجو ان تبحث عنه هنا بالمنتدى اي الايام الماضية

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

يمكنك استخدام Enter بدلا من Tab كالتالي :

- غير خاصية KeyPreView الى True

- ضع هذا الكود في حدث FormKeyPress

if Key = #13 then
begin
 Key := #0;
 SelectNext(ActiveControl,True,True);
end

تقبل تحياتي