webbrowser

Question

请问我想在webbrowser里添点内容，怎么它不支持回车？怎么在里边换行？

Answer 1

TWebBrowser控件无法响应回车键怎么办?希望得到一个很妥当的方法 
WnEunfn(斯人不语)好不容易才解决这个问题，由于代码比较长，你要慢慢看吧……首先：uses ActiveX;//引用！！----------------------------------------------------------------TfrmChildWeb = class(TForm)WebBrowser: TWebBrowser;//TwebBrowser!!!procedure FormCreate(Sender: TObject);//必用的一个事件…privateFOleInPlaceActiveObject: IOleInPlaceActiveObject;procedure MsgHandler(var Msg: TMsg; var Handled: Boolean);//自定义的一个处理……publicend;----------------------------------------------------------------过程：procedure TfrmChildWeb.MsgHandler(var Msg: TMsg; var Handled: Boolean);variOIPAO: IOleInPlaceActiveObject;Dispatch: IDispatch;beginif WebBrowser = nil then beginHandled := False;Exit;end;Handled := (IsDialogMessage(WebBrowser.Handle, Msg) = True);if (Handled) and (not WebBrowser.Busy) thenbeginif FOleInPlaceActiveObject = nil thenbeginDispatch := WebBrowser.Application;if Dispatch <> nil thenbeginDispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO);if iOIPAO <> nil thenFOleInPlaceActiveObject := iOIPAO;end;end;if FOleInPlaceActiveObject <> nil thenif ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) and((Msg.wParam = VK_BACK) or (Msg.wParam = VK_LEFT) or (Msg.wParam = VK_RIGHT)) thenelseFOleInPlaceActiveObject.TranslateAccelerator(Msg);end;end;　procedure TfrmChildWeb.FormCreate(Sender: TObject);beginApplication.OnMessage := MsgHandler;end;
 

Answer 2

uses MSHTML;procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('about:blank');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  (WebBrowser1.Document as IHtmlDocument2).body.insertAdjacentHTML('beforeEnd', '第一行<br>第二行<br>');
end;插入一个HTML，IE能实现什么不能实现？～～

Answer 3

我的问题解决，zswangII(伴水清清)(职业清洁工)你的问题另开贴子吧，简单，以前的贴子你搜索一下吧