|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Что я делаю не так... WebBrowser
пишу программу, которая должна выполнять в инете некоторую последовательность действий...
есть форма, на ней 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. |
#2
|
||||
|
||||
Код:
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); begin WebBrowser2.RegisterAsBrowser := true; ppDisp := WebBrowser2.Application; end; Кто ищет - тот найдет Последний раз редактировалось Admin, Сегодня в 10:32. |
#3
|
|||
|
|||
2 friz
благодарю за помощь, но к сожалению такой код не работает так, как хотелось бы... в данном коде не создается WebBrowser, а он должен быть создан заранее... а у меня предполагается много таких страниц... в WebBrowser2 отображается та же страница, что и в вызвавшем браузере... на старанице, которая должна загрузится в WebBrowser2 должна быть ссылка, которая закроет даную закладку, т.е. мне ее надо создать в обработчике, а не в конструкторе... |
#4
|
|||
|
|||
эксперементы продолжаю...
Цитата:
|
#5
|
||||
|
||||
чего ты мучаешься? тут же все просто
Код:
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); var webbrowser2: TWebBrowser; begin WebBrowser2 := TWebBrowser.Create(MainForm); TWinControl(WebBrowser2).Name := 'MyWebBrowser'; TWinControl(WebBrowser2).Parent := TabSheet2; WebBrowser2.Align := alClient; WebBrowser2.RegisterAsBrowser := true; ppDisp := WebBrowser2.Application; end; Последний раз редактировалось Admin, Сегодня в 10:32. |