CSDN博客

img wangzn1979

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

发表于2003/3/15 10:19:00  555人阅读

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

也就是说当按Enter键的时候,产生的效果是按了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的转换.

0 0

相关博文

我的热门文章

img
取 消
img