webbrowser响应回车键 代码已经简化了,适合新手阅读

//首先在窗体中添加 ApplicationEvents 控件  D7的第二个选项卡 由左边开始第14个;

procedure TForm1.ApplicationEventsMessage(var Msg: tagMSG;
  var Handled: Boolean);
  var
    iOIPAO,FOleInPlaceActiveObject:IOleInPlaceActiveObject;
    Dispatch:IDispatch;
begin
  Handle := True; //如果为真的话,好像不可以继续执行;要继续测试的时间,D7突然出错了,不关代码事;关键代码还是下面;
  Dispatch := WebBrowser.Application;
  Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO);
  FOleInPlaceActiveObject := iOIPAO;
  FOleInPlaceActiveObject.TranslateAccelerator(Msg); //上面的准备,目的也是为了调用这个函数 TranslateAccelerator;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  webbrowser.Navigate('http://www.baidu.com');
end;

//网上的代码写得一大堆,为了实现回车键只需要以上这几行代码就够了可怜,现在的简化明了,终于搞明白了。

 

用WEBBROWSER怎么复制粘贴不能用了 http://blog.csdn.net/god00/article/details/6731168

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值