动态创建的WebBrowser如何捕捉newWindows消息

Question

动态创建的pagecontrol和pagecontrol上的WebBrowser如何捕捉WebBrowser的newWindows消息  
 
谢谢

Answer 1

是不是要用windowpro实现，怎么个做法，谢谢

Answer 2

procedure WebWndProc(var AMsg: TMessage);  SetLength(gWBTabSheet, giMaxWebPage);
  SetLength(gWebBrowser, giMaxWebPage);
  gWBTabSheet[0] := TRzTabSheet.Create(self);
  gWBTabSheet[0].PageControl :=  WBPageControl;
  WBPageControl.ActivePage := gWBTabSheet[0];
  gWBTabSheet[0].Caption := 'about:black';  gWebBrowser[0] :=TWebBrowser.Create(self);
  gWebBrowser[0].ParentWindow := gWBTabSheet[0].Handle;
  gWebBrowser[0].Align:=alclient;
  gWebBrowser[0].Left := gWBTabSheet[0].Left;
  gWebBrowser[0].Top :=  gWBTabSheet[0].Top;
  gWebBrowser[0].Width := gWBTabSheet[0].Width;
  gWebBrowser[0].Height := gWBTabSheet[0].Height;
  gWebBrowser[0].Navigate(gblDefaultWeb);
  gWebBrowser[0].WindowProc := WebWndProc;procedure TMain.WebWndProc(var AMsg: TMessage);
begin
  if AMsg.Msg = ?????????  thenend;???????怎么处理，
谢谢

Answer 3

解决，delphi真好，方便，vc太笨重了，误倒。