用enter代替(100分)

  • 主题发起人 主题发起人 barmy
  • 开始时间 开始时间
if key=13 then
key=9
 
Form的KeyPreview属性设为True
在Form的OnKeyPress事件中
if Key=#13 then
begin
Key:=#0;
SelectNext(ActiveControl,True,True);
end;
 
如果是代替TAB,可以:
在OnKeyPress事件中
begin

if Key=#13 then

Perform(WM_NEXTDLGCTL,0,0);
end;
 
上叙的语法Key错了应该是如下
If Key =#13 then
begin
Key := #0;
Perform(WM_NEXTDLGCTL,0,0);
end;
 
如果是替代控件间的TAB功能就无话可说了。
如果是替代GRID中的TAB,那我还可以补充两句。
 
到底什么啊?
 
sorry!
那天的网不好,把我的问题掐了一半,并且我只相给50,它却给了100!
lambert的答案也是我想问的问题,它的运行结果不是将输入焦点移动到下一个,
而是移动到tab种的最后一个.
请Jamw说一下怎么替代GRID中的TAB

 
模拟TAB?
 
如果现在还不知道的话,我明天告诉你
 
pengchengfei:你这个明天这么久??
 
多人接受答案了。
 
If Key =#13 then
begin
Key := #0;
Perform(WM_NEXTDLGCTL,0,0);
end;

 
后退
顶部