关于twebbrowser的几个问题

[Raffaello]

1
procedure TMainForm.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
newbrowser:twebbrowser;
newtabsheet:TTabSheet;
begin
newtabsheet:=TTabSheet.Create(nil);
newtabsheet.PageControl:=pagecontrol1;
newbrowser:=twebbrowser.Create(nil);
newtabsheet.InsertControl(newbrowser);
newbrowser.align:=alclient;
newbrowser.onnewwindow2:=webbrowser1.onnewwindow2;
pagecontrol1.ActivePage:=newtabsheet;
ppdisp:=newbrowser.Application;
end;
如果打开的窗口上有用javascript写的关闭窗口按钮，单击会提示could not obtain OLE control window handle.然后只能杀掉该进程，请问该如何解决？
2
如何给每个动态创建的twebbrowser单独写前进，后退，刷新，停止功能？需要详细一点的代码

[Raffaello]

u p 2 u

[NetFair]

1.你可以获得URL值，通过判断URL值同，可以知道里面是否有window_close()，这样就可以在窗口打开之前，先做些处理。
2.留个MAIL，我发给你，代码也不一定能满足需要，
[e-mail]

[Raffaello]

再U P一次

[Raffaello]

没人回答，权作放分