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