TDBGrid中用Enter仿真Tab键盘

原创 2001年06月13日 09:53:00

 

procedure TForm1.FormKeyPress(Sender: TObject; var Key:
Char);
begin
  if Key = #13 then //如果是一个Enter键盘
  begin
    if not (ActiveControl is TDBGrid) then  //如果当前的控件不是TDBGrid
    begin
       Key := #0;
       Perform(WM_NEXTDLGCTL, 0, 0); { move to next control }
    end
    else if (ActiveControl is TDBGrid) then //在TDBGrid中
    begin
       with TDBGrid(ActiveControl) do
       begin
         if selectedindex < (fieldcount -1) then //如果不是最后一个字段
            selectedindex := selectedindex +1
         else
            selectedindex := 0;
       end;
   end;
end;
end;

delphi中给TDBGrid上颜色

delphi中给TDBGrid上颜色 ; c++builder 中给TDBGrid上颜色
  • bobwu
  • bobwu
  • 2010年06月04日 17:22
  • 1485

TDBGrid1_HeadClick 排序

Private Sub TDBGrid1_HeadClick(ByVal ColIndex As Integer)On Error Resume NextStatic TmpFlag As Boole...
  • susie8449
  • susie8449
  • 2008年07月05日 09:59
  • 470

TDBGrid中用Enter仿真Tab键盘

  • zgqtxwd
  • zgqtxwd
  • 2008年04月30日 18:35
  • 106

JQuery实现回车代替Tab键

一、问题情境:对于一个网页上的表单,放置了一个提交按钮以后,用户如果按了键盘的回车键,默认情况下,就会提交这个表单了。这样对于用户输入各个表单项目,会很不方便,输入完一个项目,或者用鼠标选择下一个项目...
  • lutaotony
  • lutaotony
  • 2009年07月02日 10:02
  • 5413

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

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

用Enter键替代Tab键切换栏目的数据窗

用Enter键替代Tab键切换栏目的数据窗 许多情况下,PowerBuilder应用的数据是通过数据窗输入的,而且输入的数据是单纯的数字数据,也就是说,输入内容完全可以通过敲击键盘右面的数字小键盘来...
  • happymagic
  • happymagic
  • 2016年04月08日 09:07
  • 543

应用jQuery在easyui中Enter To tab

现有客户需求tab键的切换功能转为按enter跳转。
  • u012967703
  • u012967703
  • 2017年05月17日 12:07
  • 632

C#winform里按ENTER键相当于按TAB键

首先在页面中的一个KeyPurview属性里设置为True,然后在页面的KeyDown事件里写下如下代码即可:  try            {                if (e.KeyCo...
  • CPU_2
  • CPU_2
  • 2008年09月11日 12:25
  • 1582

jquery键盘enter事件

在开发中越来越多的表单提交使用ajax,很多情况下也就不能使用系统自带的enter键提交功能,所以就需要用js模拟enter键提交。 这里使用jquery方法: 第一步获取键盘按键事件第二...
  • leyuxinsi
  • leyuxinsi
  • 2015年02月24日 18:06
  • 861

用ENTER键代替TAB键

protected   override   bool   ProcessCmdKey(ref   Message   msg,Keys   keyData)     ...{     if   ( ...
  • LeoMaya
  • LeoMaya
  • 2006年12月25日 20:50
  • 830
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:TDBGrid中用Enter仿真Tab键盘
举报原因:
原因补充:

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