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

原创 2003年03月15日 10:19:00

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

也就是说当按Enter键的时候,产生的效果是按了Tab. <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

下面是我经常使用的方法:

在你的数据模块中,添加如下代码:

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的转换.

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

 如何实现应用程序中的”回车”成TAB?其实方法有很多种,但哪一种才是最简洁、最灵活的呢?下面的方法就是博主最常使用的方法:一、在你的数据模块中,添加如下代码:interface  。。。。。。  t...
  • xieyunc
  • xieyunc
  • 2009年05月02日 10:00
  • 474

javascript用回车键实现Tab键功能

  很多罗嗦的客户,喜欢提出这些需求!其实实现也不难!代码如下:我前段时间看了MS的ASP.NET讲座,在里面谈到了如何让"回车键"使文本框的焦点一个个下移.其中提了三种方法,最好的一种是这样的: 用...
  • lpy123456
  • lpy123456
  • 2006年11月15日 10:26
  • 679

JS中,用回车键代替TAB键

 用回车来进行切换功能 function check() {    //keyCode是event事件的属性,对应键盘上的按键,回车键是13,tab键是9,其它的如果不知道 ,查keyCode大全  ...
  • mcy478643968
  • mcy478643968
  • 2008年12月18日 21:57
  • 8936

js 回车转成TAB(利用tabindex)

function enterToTab(event, input) { var e = event?event:window.event; var form = document.getEleme...
  • djchallenge
  • djchallenge
  • 2012年03月06日 17:46
  • 3911

用回车来代替TAB切换控件——文本框失去焦点

用回车来代替TAB切换控件——文本框失去焦点
  • xwnxwn
  • xwnxwn
  • 2010年12月06日 20:27
  • 968

在WPF里面按Enter键得到Tab的效果

用所有控件放在Grid里,然后再定义其下所有元素的PreviewKeyDown事件: 后台代码写上: private void Grid_PreviewKeyDown(object sen...
  • ryb666666
  • ryb666666
  • 2016年12月01日 09:52
  • 810

c# winform用“回车”键代替“Tab”键是提高用户体验

//首先将窗体的 keypreview 的属性设为 true private void 窗体_KeyPress(object sender, KeyPressEventArgs e) { ...
  • lilin8905
  • lilin8905
  • 2015年01月27日 18:24
  • 3045

xml中空格,Tab,回车,换行

空格 (& #x0020;) Tab (& #x0009;) 回车 (& #x000D;) 换行 (& #x000A;)要记得用得时候要把"&"和"#"之间的" "去掉...
  • lee576
  • lee576
  • 2014年01月23日 21:34
  • 2403

将“回车(ENTER)”转成“切换(TAB)”的JS和jQuery写法

 普通js  jQuery$(document).ready(function(){$(document).keydown(function(){if(ev
  • xiaxiaorui2003
  • xiaxiaorui2003
  • 2009年11月17日 20:20
  • 3320

java的swing组件注册回车事件

使用的时候,只要将SwingUtils .enterPressesWhenFocused(JButton)这样就可以实现回车时候,触发按钮。另外文本输入框回车触发事件则是:SwingUtils .en...
  • lhjalt
  • lhjalt
  • 2009年08月03日 01:08
  • 2621
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何实现应用程序中的”回车”成TAB?
举报原因:
原因补充:

(最多只允许输入30个字)