чего ты мучаешься? тут же все просто
Код:
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
webbrowser2: TWebBrowser;
begin
WebBrowser2 := TWebBrowser.Create(MainForm);
TWinControl(WebBrowser2).Name := 'MyWebBrowser';
TWinControl(WebBrowser2).Parent := TabSheet2;
WebBrowser2.Align := alClient;
WebBrowser2.RegisterAsBrowser := true;
ppDisp := WebBrowser2.Application;
end;
и все! |