Twebbrowse的问题.

Question

我使用TWebBrowse的控件时
在网面上的textarea区域键入回车时,没有响应,有谁有好的解决方法

Answer 1

在tWebBrowser中，如果navigate到的页面上有textarea框，我发现就是不能在里面用回车换行，一定要用alt+13才行。另外不能ctrl+c。
是不是该控件的bug，还是哪里设置不对？ 
回复贴子： 
　回复人：Daiver(Daiver)　(2000-11-30 19:09:00)  得0分 
是Delphi的BUG来的，在VB中没有这种情况（老BILl)还是对自己好啊！）在程序员大本营中有解决的办法，是DELphi中的技巧2，我只是看了，没有去试过，你可以去试试 啊，有什么结果记得E_mail给我（[email protected])  
　回复人：easypaper()　(2000-11-30 19:24:00)  得0分 
关于复制的问题，不是DELPHI的BUG，是因为你的程序里面少了一点东西。
在初始化函数里面，增加
OleInitialize(nil);
在推出程序之前，增加：
OleUninitialize（）；
解可以解决这个问题。至于回车的问题，可以算是vcl的bug（其实是封装机制问题，vcl将回车给吃掉了）。
 
　回复人：menxin()　(2000-12-4 20:31:00)  得0分 
没办法彻底解决，你应该用www.intelligo.com/iedelphi 上的Embedded.  
　回复人：pengpenghu(碰碰和)　(2000-12-9 10:10:00)  得0分 
我无法打开这个网站www.intelligo.com/iedelphi ，你有没有现成的？  
　回复人：Nicrosoft(奈软)　(2000-12-9 10:27:00)  得0分 
这个控件不是vcl的，是IE自带的ocx，所以不可能是delphi的bug  
　回复人：alaclp(陈石)　(2001-2-22 8:21:00)  得0分 
在主窗体中添加TappliationEvent,在其事件中写如下代码,
//uses Activex
procedure TMainFrm.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
{ fixes the malfunction of some keys within webbrowser control }
const
  StdKeys = [VK_TAB, VK_RETURN]; { standard keys }
  ExtKeys = [VK_DELETE, VK_BACK, VK_LEFT, VK_RIGHT]; { extended keys }
  fExtended = $01000000; { extended key flag }
var
WebBrowser1: TWebBrowser;
begin
if Pages.PageCount = 0 then Exit;
WebBrowser1 := GetCurrentWeb;
Handled := False;
with Msg do
  if ((Message >= WM_KEYFIRST) and (Message <= WM_KEYLAST)) and
    ((wParam in StdKeys) or {$IFDEF VER120}(GetKeyState(VK_CONTROL) < 0) or {$ENDIF}
      (wParam in ExtKeys) and ((lParam and fExtended) = fExtended)) then
    try
      if IsChild(WebBrowser1.Handle, hWnd) then
      { handles all browser related messages }
      begin
        with WebBrowser1.Application as IOleInPlaceActiveObject do
          Handled := TranslateAccelerator(Msg) = S_OK;
        if not Handled then
        begin
          Handled := True;
          TranslateMessage(Msg);
          DispatchMessage(Msg);
        end;
      end;
    except end;
end; // IEMessageHandler另外,easypaper所说的oleini..., oleunini...,不只写在那里,有何作用?
 
　回复人：aton()　(2001-2-28 19:33:00)  得0分 
先要使WebBrowser获得焦点　　TWebBrowser非常特殊，它从TWinControl继承来的SetFocus方法并不能使得它所包含的文档获得焦点，从而不能立即使用Internet Explorer本身具有得快捷键，解决方法如下：<　　procedure TForm1.SetFocusToDoc;
　　begin
　　　if WebBrowser1.Document <> nil then
　　　　with WebBrowser1.Application as IOleobject do
　　　　　DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle, GetClientRect);
　　end; 　　除此之外，我还找到一种更简单的方法，这里一并列出：　　if WebBrowser1.Document <> nil then
　　　IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow).focus 　　刚找到了更简单的方法，也许是最简单的：　　if WebBrowser1.Document <> nil then
　　　IHTMLWindow4(WebBrowser1.Document).focus 　　还有，需要判断文档是否获得焦点这样来做：　　if IHTMLWindow4(WebBrowser1.Document).hasfocus then  

Answer 2

不知道OleInitialize是哪个Unit里面的.
我在使用出现"没有初始化该函数"的错误

Answer 3

首先：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;