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怎么复制粘贴不能用了 /article/8756706.html