Ссылка из WebBrowser2 в WebBrowser1

[-=Virus=-]

Посдкажите как осуществить такую фичку чтобы когда нажимаешь на ссылку в WebBrowser2 он открывалась в WebBrowser1 очень нужно.

[wall66]

думаю, операционная система просто не разрешит такое из соображений безопасности

[Stilet]

Пропиши обработчик

procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
Cancel:=true;
WebBrowser1.Navigate(url);
end;

[-=Virus=-]

Сообщение от Stilet

Пропиши обработчик

procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
Cancel:=true;
WebBrowser1.Navigate(url);
end;

Если так сделать,получается когда загрузить хочешь в WebBrowser2 запускается в WebBrowser1,думаю надо прописать в обработчике OnNewWindows2,что прописать чтобы так открывалась?

[Stilet]

когда загрузить хочешь в WebBrowser2

А вот тогда когда ты это го очень хочешь просто отключай этот обработчик:

WebBrowser2.OnBeforeNavigate2:=nil;
WebBrowser2.Navigate('www.ya.ru');
WebBrowser2.OnBeforeNavigate2:=WebBrowser2BeforeNavigate2;

[-=Virus=-]

Сообщение от Stilet

А вот тогда когда ты это го очень хочешь просто отключай этот обработчик:

WebBrowser2.OnBeforeNavigate2:=nil;
WebBrowser2.Navigate('www.ya.ru');
WebBrowser2.OnBeforeNavigate2:=WebBrowser2BeforeNavigate2;

И как где его лутче отключеть в этом же событии?
Хотелась бы чтобы всё было автоматически.
Пробывал запихнуть это всё дело в OnBeforeNavigate2 просто тупа браузер вис.

WebBrowser2.OnBeforeNavigate2:=nil;
WebBrowser2.Navigate('www.ya.ru');
WebBrowser2.OnBeforeNavigate2:=WebB rowser2BeforeNavigate2;

когда это прописываешь страно при исполненни этого прога сразу виснет вчём же дело?

[DomiNick]

Была тема про вкладки TTabSheet с TWebBrowser...

Добавил туда код из 3-го поста - заработало, но открывается сразу по 2-4 новые вкладки...
В первой открывается нужная страница, а остальные пустые...

Иногда ошибки пишет, иногда открывает через IE...

[Stilet]

Вот что я имею ввиду:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser2.OnBeforeNavigate2:=nil;
WebBrowser2.Navigate('http://programmersforum.ru/showthread.php?p=304200#post304200');
WebBrowser2.OnBeforeNavigate2:=WebBrowser2BeforeNavigate2;
end;

procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
Cancel:=true;
WebBrowser1.Navigate(url);
end;

end.

Твоего кода я не знаю, потому не могу предположить где ты там намутил.