![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() пишу программу, которая должна выполнять в инете некоторую последовательность действий...
есть форма, на ней PageControl, на нем соответсвено два TabSheet, основной и дополнительный.... на основном WebBrowser, в котором выполняются определеные действия... при нажатии на одну из ссылок должно открываться новая закладка, по крайней мере во всех браузерах так делается ![]() по умолчанию открывается ИЕ, но хоца, что бы открывалась закладка с новым WebBrowserом. для этого я надумал перехватить событие NewWindow2, но оно выдает ошибку... текст обработчика события привожу: Код:
procedure TMainForm.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); begin PageControl1.ActivePage := TabSheet2; WebBrowser2 := TWebBrowser.Create(TabSheet2); WebBrowser2.SetFocus; WebBrowser2.Align := alClient; end; что я делаю неправильно и как это поправить? Последний раз редактировалось Admin, 27.05.2010 в 10:22. |