Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты!
Доброго времени суток, уважаемые эксперты!
Я решил сделать свой собственный веб-обозреватель, но у меня возникла проблема, когда я в своем обозревателе захожу, допустим, на яндекс, нахожу инфу, а дальше кликаю на заголовок, но открывается окно Internet Explorer! Я бы хотел, чтобы открывалось окно такое же, как и родительское, у меня возникла идея организовать это в событии OnNewWindow, но я не могу получить URL, по которому происходит переход. Вопрос следующий: как мне получить URL в событии ONNewWindow или как сделать так, чтобы когда я перехожу по ссылке и открывается новое окно, то оно было такого же дизайна как и предыдущее

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Вопрос задал: MAY (статус: Посетитель) Вопрос отправлен: 5 октября 2008, 14:52 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, MAY!
Ну на самом деле всё очень просто. код, который удоволетворит всем Вашим требованиям - буквально пара строк.

procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
var
  NewWindow: TForm1;
begin
  // создадим новую форму, копию Form1. Если у Вас форма имеет другой тип - впишите верный
  NewWindow := TForm1.Create(self);
  //понятно, что надо её показать пользователю
  NewWindow.Show;
  //самая важная строка - дадим вызывающему броузеру некую ссылку на новое окно.
  ppDisp := NewWindow.Webbrowser1.DefaultDispatch;
end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 6 октября 2008, 01:19 Оценка за ответ: 5

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.