如何实现应用程序中的”回车”成TAB?

原地址：http://blog.csdn.net/xieyunc/article/details/4142875

如何实现应用程序中的”回车”成TAB？

其实方法有很多种，但哪一种才是最简洁、最灵活的呢？
下面的方法就是博主最常使用的方法:
一、在你的数据模块中,添加如下代码:

[delphi]  view plain copy

1. interface  
2.   。。。。。。  
3.   type  
4.     TMessageHandler = class     //使得回车消息转换成Tab消息  
5.       class procedure AppMessage(var Msg:TMsg;var Handled:Boolean);  
6. end;   
7. implementation  
8.    
9. class procedure TMessageHandler.AppMessage(var Msg: TMsg; var Handled: Boolean);  
10. begin  
11.   if Msg.message=WM_KEYDOWN then  
12.     if (Msg.wParam=VK_RETURN ) and  
13.       (  
14.         (Screen.ActiveForm.ActiveControl is TEdit) or                 
15.         (Screen.ActiveForm.ActiveControl is TComboBox) or  
16.         (Screen.ActiveForm.ActiveControl is TCheckBox) or  
17.         (Screen.ActiveForm.ActiveControl is TRadioButton)  
18.               //可以添加需要的控件  
19.       )  
20.     then  
21.     begin  
22.       Msg.wParam:=VK_TAB;  
23.     end  
24.     else if (Msg.wParam=VK_RETURN) and  
25.       (  
26.        (Screen.ActiveForm.ActiveControl is TDBGrid)  
27.       )  
28.     then  
29.     begin  
30.       with Screen.ActiveForm.ActiveControl do  
31.       begin  
32.         if Selectedindex<(FieldCount-1) then  
33.           Selectedindex:=Selectedindex+1{ 移动到下一字段}  
34.         else  
35.           Selectedindex:=0;  
36.       end;  
37.     end;  
38. end;  

二、为了使得整个应用程序都能够实现主要的功能,在主窗体的OnCreate事件中添加如下代码: 

[delphi]  view plain copy

1. procedure TfmMain.FormCreate(Sender: TObject);  
2. begin  
3.     Application.OnMessage:=TMessageHandler.AppMessage;  
4. end;   

到此为止,你的应用程序已经实现了这个Enter->Tab的转换.