古老话题：如何实现应用程序中的”回车”成TAB?

 

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

interface   。。。。。。   type     TMessageHandler = class     //使得回车消息转换成Tab消息       class procedure AppMessage(var Msg:TMsg;var Handled:Boolean); end; implementation class procedure TMessageHandler.AppMessage(var Msg: TMsg; var Handled: Boolean); begin   if Msg.message=WM_KEYDOWN then     if (Msg.wParam=VK_RETURN ) and       (         (Screen.ActiveForm.ActiveControl is TEdit) or                       (Screen.ActiveForm.ActiveControl is TComboBox) or         (Screen.ActiveForm.ActiveControl is TCheckBox) or         (Screen.ActiveForm.ActiveControl is TRadioButton)               //可以添加需要的控件       )     then     begin       Msg.wParam:=VK_TAB;     end     else if (Msg.wParam=VK_RETURN) and       (        (Screen.ActiveForm.ActiveControl is TDBGrid)       )     then     begin       with Screen.ActiveForm.ActiveControl do       begin         if Selectedindex<(FieldCount-1) then           Selectedindex:=Selectedindex+1{ 移动到下一字段}         else           Selectedindex:=0;       end;     end; end;
二、为了使得整个应用程序都能够实现主要的功能,在主窗体的OnCreate事件中添加如下代码:

procedure TfmMain.FormCreate(Sender: TObject); begin     Application.OnMessage:=TMessageHandler.AppMessage; end;
到此为止,你的应用程序已经实现了这个Enter->Tab的转换.