Код:
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
tss: TTabSheet;//вкладка
begin
if Twebbrowser(Sender).ReadyState <> READYSTATE_COMPLETE then
begin
ppDisp := nil;
Cancel := True;
end else
begin
tss := CreateTabBrowser('about:blank', 'Новая вкладка');//создаем вкладку с пустым адресом
WaitForBrowser(Twebbrowser(tss.Controls[0]));//ожидаем завершения работы Twebbrowser
ppdisp := (Twebbrowser(tss.Controls[0])).Application;//передаем фокус активному веббровсеру
WaitForBrowser(Twebbrowser(tss.Controls[0]));//ожидаем завершение работы веббровсера(активного разумется)
end;
end;
вот открывает новую вкладку только у меня чтото не хочет ругается на CreateTabBrowser не опознает её