ActiveX 中按键盘回车 为什么没有反应，如何解决！(100分)

  • 主题发起人 主题发起人 13708782004
  • 开始时间 开始时间
1

13708782004

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TActiveFormX.Edit4KeyDown(Sender: TObject
var Key: Word;
Shift: TShiftState);
begin
if (Key = 13) then
begin
Key := 0;
edit7.SetFocus;
end;
end;
为什么在edit4.text 按回车，没有动静啊！
 
帮顶！

╭=========================================╮

80G海量源代码,控件，书籍全免费狂下不停！

http://www.source520.com

╰=========================================╯
 
帮帮我啊
 
TO satanmonkey:你不也不帮我吧！
 
keypress中的回车键值是13
但keydown中的回车键值不一定是13
应改成
Key = VK_RETURN
 
好的，我试一试
 
不一定是13？？ 回车还有不一定是13的说法？？？
看看VK_RETURN的定义：
{$EXTERNALSYM VK_RETURN}
VK_RETURN = 13;
不是13还能是什么

肯定是其他方面的原因
楼主先试试把那个SetFocus改成个showmessage看看会不会弹出对话框。。
TActiveForm不能跟踪调试吗？
 
我记得ActiveX控件要获得焦点和响应回车需要自己实现几个重要的Interface的，不过不记得具体接口名字了，建议查查msdn先。
 
非常感谢，的确vk_enter=13

-----------
其实 我受大家 启发，把key_down 事情 全部搬到！key_press ,问题解决！
 
您必须登录或注册才可回复。

Similar threads

I
Delphi中如何模拟键盘按键
回复
0
查看
711
import
I
I
TWebBrowser控件无法响应回车键
回复
0
查看
758
import
I
I
模拟和发送按键
回复
0
查看
782
import
I
I
tWebBrowser中不能回车以及copy
回复
0
查看
583
import
I
I
一个键盘Hook控件
回复
0
查看
698
import
I
后退
顶部