вопрос по webbrowser

[blackstersl]

Привет всем. Вопрос: есть webbrowser в pagecontrol, как по нажатию на ссылку в webbrowser-e создавалась новая вкладка? Спасибо.

[Ntlegend]

var MyShet : TTabSheet;
****
MyShet:=TTabSheet.Create(MainFrm);
 with MyShet do
  begin
   PageControl := PageControl1;
//и можна задать название.. и еще шо нить..
  end;

[blackstersl]

да это я знаю, а как это привязать к ссылке на сайте, типа как в опере -)

Ну кто нибудь поможет?

Может я неправильно обьяснил: есть webbrowser и pagecontrol, нужно чтобы, когда webbrowser САМ ПО СИБЕ открывает IE и внём открывает нажатую нами ссылку, вместо этого нужно сделать так чтобы когда он снова "захотел" открыть в IE ссылку , от откроет её на новой вкладке. Может так немного понятние обьяснил. Заранее спасибо.

Ну вот как запретить открытие IE я кажится сделал, но страница не открывается. Что делать?
Вот весь код:

var
t:tstabsheet;
f:tframe4;
...

procedure TFrame4.webbrowser1NewWindow2(ASender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
if webbrowser1.ReadyState <> READYSTATE_COMPLETE then
  begin
    ppDisp := nil;
    Cancel := True;
  end else
  begin
    createwebtab;
    ppdisp := webbrowser1.Application;
   cancel := false;
  end;
end;


procedure TFrame4.createwebtab;
begin
 t := tstabsheet.Create(self);
t.PageControl := form1.spagecontrol1;
t.Caption := 'Новая вкладка' + inttostr((i+1) - 3) + '    ';
f := tframe4.Create(nil);
f.Parent := t;
f.Align := alclient;

t.Show;
end;

[Stilet]

Вот насколько я понял тебе нужно именно так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    WebBrowser2: TWebBrowser;
    procedure WebBrowser2BeforeNavigate2(Sender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var p:TTabSheet;w:TWebBrowser;
begin
 Cancel:=true;
 p:=TTabSheet.Create(PageControl1);
 p.PageControl:=PageControl1;
// p.Parent:=PageControl1;
 p.Caption:='1';
 p.Show;
 w:=TWebBrowser.Create(p);
 p.InsertControl(w);
 w.Navigate(url);
 w.Align:=alClient;
 w.OnBeforeNavigate2:=WebBrowser2BeforeNavigate2;
 PageControl1.ActivePage:=p;
 w.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser2.OnBeforeNavigate2:=nil;
 WebBrowser2.Navigate('www.ya.ru');
 WebBrowser2.OnBeforeNavigate2:=WebBrowser2BeforeNavigate2;
end;

end.

[Shto[R]m]

доброго времени суток,не хотел создавать новую тему,ибо их итак много. Собственно вопрос:
Как в webbrowser выполнить проверку,загрузился ли сайт?
был вопрос на форуме,но в среде VBA помоему,мне же надо в делфи.
по поиску ненашел ничего подходящего.
заранее спасибо за ответы

[lexaltd]

Сообщение от Shto[R]m

доброго времени суток,не хотел создавать новую тему,ибо их итак много. Собственно вопрос:
Как в webbrowser выполнить проверку,загрузился ли сайт?
был вопрос на форуме,но в среде VBA помоему,мне же надо в делфи.
по поиску ненашел ничего подходящего.
заранее спасибо за ответы

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if WebBrowser1.ReadyState = READYSTATE_COMPLETE then
   if URL = 'http://www.yandex.ru/' then
   ShowMessage('страница загрузилась');
end;

Подправил

[Shto[R]m]

спасибо за ответ,но мне нужно,если определенная страница загрузилась,например:
если загрузилась странциа www.yandex.ru тогда
выводи сообщение

[Shto[R]m]

всё,работает-большое спасибо.

ошибочка-он выводит 4 сообщения+реагирует на все страницы,а не нужную мне