回车键作为tab使用

procedure MyKeyPress(frm:TForm; var Key: Char);
    begin
     if Key = #13 then { 如果按下了回车键 }
     begin
     Key := #0; { 吃掉回车键 }
     frm.Perform(WM_NEXTDLGCTL, 0, 0); { 移动到下一个控制 }
     end;
    end;


procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
     MyKeyPress(Self, Key);
end;

form可以添加到reposity。

阅读更多
个人分类: delphi
想对作者说点什么? 我来说一句

Delphi回车键代替Tab

2010年08月16日 357B 下载

没有更多推荐了,返回首页

不良信息举报

回车键作为tab使用

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭