我们来自五湖四海,不为别的,只因有共同的爱好,为中国互联网发展出一分力!

传递焦点的五种方法

2013年04月28日03:40 阅读: 17692 次

      在编程过程当中,有时我们需要人为地传递焦点到下一个 Control, 目的方便我们或者是用户更好的使用,在大量的数据单元输入或有大量的使用 TEDIT( TDBEDIT ) 控件时更是如此。笔者就日常使用的一些方法总结出来,以荀读者。

      从简单的开始,使用消息传递机制:

      1、把焦点传递到下一 Control: SendMessage(Form1.Handle, WM_NEXTDLGCTL, 0, 0);

      2、把焦点传递到上一 Control: SendMessage(Handle, WM_NEXTDLGCTL, 1, 0);
    这种方法的好处是无需考虑 Control 的数量、位置及 TabOrder 的顺序。

     

      使用 Delphi 的内部函数 A:

      1、把焦点传递到下一 Control: SelectNext((Sender AS TWinControl),true,false);


      2、把焦点传递到上一 Control: SelectNext((Sender AS TWinControl),false,false);
    这种方法的缺点是需考虑 TabOrder 的顺序。

     

      使用 Delphi 的内部函数 B:

      1、把焦点传递到下一 Control: FocusControl(FindNextControl((Sender AS TWinControl),True,False,false));


    2、把焦点传递到上一 Control: FocusControl(FindNextControl((Sender AS TWinControl),False,False,false));
    这种方法的缺点是需考虑 TabOrder 的顺序。

     

      使用 Delphi 的内部函数 C:

      1、把焦点传递到下一 Control: (FindNextControl((Sender AS TWinControl),True,False,false)

    As TWinControl).SetFocus;

      2、把焦点传递到上一 Control: (FindNextControl((Sender AS TWinControl),False,False,false)

    As TWinControl).SetFocus;

      这种方法的? 是需考虑 TabOrder 的顺序。

     

      模拟 Virual Basic 的 SendKey 事件,建立一个 SendKey 方法,有兴趣的读者可以参考 Delphi 5 CD 光碟的Info\Sendkey 目录,里面有详细的解释。

      在使用以上的方法时,由于都没有考虑到当焦点转移时的数据变更问题,读者在实际运用中应加以注意和处理。

 

分享到: 更多
蓝客门户
©2001-2017 中国蓝客联盟 版权所有.
关于蓝客联盟历史宗旨章程技术服务联系我们蓝客社区