//首先在窗体中添加 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