webbrawser

[leon2009sp]

Здравствуйте! на форме простой веббраузер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]

можно сделать так:

function TForm1.NewBrowser: TWebBrowser;
var
  ts: TTabSheet;
begin
  ts := TTabSheet.Create(PageControl1);
  ts.Visible := true;
  ts.Caption := 'new tab';
  ts.PageControl := PageControl1;
  PageControl1.ActivePage := ts; // Делаем новую вкладку активной
  Result := TWebBrowser.Create(ts); // Создаем на ней WebBrowser
  TWinControl(Result).Parent := ts;
  Result.Align := alClient; // Распахиваем его на всю вкладку
  Result.OnTitleChange := MyWBTitleChange;
  Result.Tag := NativeInt(ts);
end;

и

NewBrowser.Navigate('programmersforum.ru');

Но это нужно каждую ссылку писать пр: в ComboBox1.
а если уже поисковик загружен и в нем нажать на ссылку = почему открывается в новом браузере? а не в новом окне?

[leon2009sp]

D11 win 7

[leon2009sp]

это делал

procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin
ppDisp := WebBrowser1.Application;
end;

[leon2009sp]

делаю так:

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

begin
//ppDisp := WebBrowser1.Application;
 {WebBrowser1.Navigate(WebBrowser1.StatusText);
  Cancel := false;   }
   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.LocationURL;
WebBrowser.Navigate(panel5.Caption);
end;

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
panel5.Caption := URL;
 // Cancel := TRUE;
end;

теперь открывается и в новой вкладке и в новом браузере =

[leon2009sp]

а ешо = 10 запросов через яндекс и надо супер слова вводить

[leon2009sp]

я знаю что если

ppDisp:=WebBrowser1.ControlInterface;

то будет только в этом браузере открываться, но в яндексе нажимаешь на ссылку:
результат:

https://yandex.ru/search/?lr=66&msid...ammersforum.ru
https://yandex.ru/search/?lr=66&msid...ammersforum.ru

ГУГЛЯ:

https://www.google.ru/search?hl=ru&s...ZSOW8tt7&gbv=1
https://www.google.ru/search?hl=ru&s...ZSOW8tt7&gbv=1

а когда нажимаешь на ссылку www.programmersforum.ru = открывает гуглю или яндекс, но не сайт который я выбрал

[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;

только приходится после каждой открытой ссылке чистить memo

[leon2009sp]

на форумах много примеров, но они или не дописаны или разбросаны.... здесь все по порядку.

[leon2009sp]

почему то сайты грузятся коряво
sincorrer.jpg
css , script и.т.п windows 7