Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Мар

TWebBrowser, как сделать чтобы новые ссылки открывал в TabSheet

Posted by obzor under Delphi

на форме простой веббраузер1
загружаю гуглю

Код:

WebBrowser1.Navigate(ComboBox1.Text);

нахожу сайт через гугл = любой. здесь можно:

Код:

var
  TabSheet: TTabSheet;
  WebBrowser : TWebBrowser ;
begin
  TabSheet := TTabSheet.Create(PageControl1);
  TabSheet.Caption := 'New Tab Sheet';
  TabSheet.PageControl := PageControl1;
WebBrowser := TWebBrowser.Create(Self);
TWinControl(WebBrowser).Parent:=TabSheet;
TWinControl(WebBrowser).Align := alClient;
pagecontrol1.ActivePage:=tabsheet;

сделать так.
а через яндекс открывает в другом браузере ie, firefox и.т.п.
но не webbrawser1
как сделать чтобы новые ссылки открывал в TabSheet в созданных

leon2009sp

Код:

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
memo1.Lines.Add(URL);
Cancel := false;
end;

Код:

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
PageControl1.Pages[0].Caption:= WebBrowser1.LocationName;
memo1.Lines.Add(URL);
panel5.Caption:=URL;
end;

Код:

procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);

begin
 memo1.Lines.Add(((TWebBrowser(ASender).document as IHTMLDocument2).activeElement as IHTMLElement).getAttribute('href', 0));
  Cancel := True;
//  ppDisp:=WebBrowser1.ControlInterface;
TabSheet := TTabSheet.Create(PageControl1);
TabSheet.Caption := 'New Tab Sheet';
TabSheet.PageControl := PageControl1;
WebBrowser := TWebBrowser.Create(Self);
TWinControl(WebBrowser).Parent:=TabSheet;
TWinControl(WebBrowser).Align := alClient;
pagecontrol1.ActivePage:=tabsheet;
WebBrowser.Navigate(memo1.Lines.Text);
end;