本博客记录傻猫的生活、工作和学习,并与大家一起分享快乐.
该日志由 samool 发表于 2008-05-21 11:30 AM
在 keydown中是
if Key = VK_RETURN then
ShowMessage('回车');
在 keypress中是
if Key = #13 then
ShowMessage('回车');
该日志由 samool 发表于 2008-03-14 10:17 AM
delphi 中 webbrowser1 浏览器中浏览网页,输入文本不能用ENTER键,无论你怎么按ENTER键,它都不会换行,还有,右键菜单的复制,和粘贴根本不是那么一回事,为什么呢?为什么??答案很简单,因为webbrowser不支持回车键响应,必须加上代码才行。
1,在使用TwebBrowser控件的窗体(例如MainForm)中创建一个函数(代码里的wb对应你的webbrowser名称)
2,在该窗体的FormCreate事件中,添加以下代码
oldHandler := Application.OnMessage;
Application.OnMessage := MsgHandler;
3,在该Form的private中声明以下两个全局变量
FOleInPlaceActiveObject: IOleInPlaceActiveObject;
oldHandler: TMessageEvent
4,把activeX头文件包进去
该日志标签: webbrowser, 回车, enter