Открытие Internet Explorer'a при навигации в TWebBrowser

[[MoNAMur]]

Здравствуйте.
Возникла проблема при загрузке страницы в компонент TWebBrowser.
Страница в компонент загружается и в дальнейшем отображается, но имеется один неприятный эффект, очень неприятный - открывается окно браузера IE.

Как загрузить данные в TWebBrowser без открытия окна браузера IE?

Сейчас данные загружаю так:

procedure MyFormWithBrowser.displayDataToBrowser(text_data: string; browser_storage: TWebBrowser);
var
   sl : TStringList;
   ms : TMemoryStream;
begin
   browser_storage.Navigate('about:blank');

   while browser_storage.ReadyState < READYSTATE_INTERACTIVE do
      Application.ProcessMessages;

   if Assigned(browser_storage.Document) then
   begin
     sl := TStringList.Create;
     try
       ms := TMemoryStream.Create;
       try
         sl.Text := '<div style="font-family:Tahoma; font-size: 11px;">' + text_data + '</div>';
         sl.SaveToStream(ms);
         ms.Seek(0, 0);
         IHTMLDocument2(browser_storage.Document).Charset := 'Windows-1251';
         (browser_storage.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
       finally
         ms.Free;
       end;
     finally
       sl.Free;
     end;
   end;
   browser_storage.OleObject.Document.ParentWindow.Scrollto(0, 0);
end;

[raxp]

и в дальнейшем отображается, но имеется один неприятный эффект, очень неприятный - открывается окно браузера IE.

у меня данный код отрабатывает корректно, без появления дополнительных "левых" окон. XP SP3/IE6/TurboDelphi-Lite

[[MoNAMur]]

Windows 7
IE9
Delphi 2009

В программе есть 2 формы. На обоих формах есть WebBrowser.
Html загружаю в эти WebBrowser'ы одним методом.
В один все нормально, а в другом сопровождается неприятным эффектом.

Хотя бы теоретически чем может быть вызвано?

[raxp]

...добавил вторую форму, вывожу тем же методом на второй параллельно:


Глюков не отмечено. Возможно что-то с настройками IE9, возможно под семеркой методы работают иначе. Попробуйте не с ActiveX IE работать, а перейти на EmbeddedBrowser.

[Delphi_ProGer]

Емм...не знаю, это ли, но я сделал так:

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

И никаких "левых" окон IE.

XP SP3, Delphi 7, ActiveX, IE 8.

[alex4321]

Отлавливать навигацию по ссылкам вроде можно (событием).

[[MoNAMur]]

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

Отлавливать навигацию по ссылкам вроде можно (событием).

Отлавливать и отменять? Навигация по ссылкам уже отлавливается...
Отменять их мне не нужно.

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

Cancel:=True;

Не помогло.

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

Глюков не отмечено.

Везет вам. Кстати ваш пример отрабатывает как нужно.

Вопрос все еще актуален.
-----------------------------------------------------------------------------
PS: Вопрос решен, спасибо за ответы.

[raxp]

Везет вам. Кстати ваш пример отрабатывает как нужно.

а вот это уже странно, ведь ActiveX подгружается ведь ваш, значит настройки и версия IE ни причем.

Перекомпиляцию моего проекта под свою IDE делали, эффект восстанавливается?

PS: Вопрос решен, спасибо за ответы.

не сразу заметил. И? Делали у себя не так, как у меня или... ?