Есть PageControl1, там динамически создаются Tab...
В Tab'ах TWebBrowser...
Как правильно сделать GoBack в таком браузере...?

Я делаю так: TWebBrowser(brows.ActivePage.tag).GoBack;
Но вылезает ошибка....

Код

TWebBrowser(Brows.ActivePage.<Имя браузера>).GoBack;

А как узнать это имя браузере... Они как кролики там генерятся на разных табах?

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 01:33

Ну если внимательней присмотреться, в integer не сую я ничего

За пример спасибо...

Это сообщение отредактировал(а) Error202 - 7.10.2005, 14:49

Код

var   I: Integer; begin   For I := 0 To Brows.ActivePage.ControlCount - 1 Do     If Brows.ActivePage.Controls[I] Is TWebBrowser Then       With Brows.ActivePage.Controls[I] As TWebBrowser Do GoBack;

Там на табе создается только один браузер и ничего больше...
Т.е. еще проще...

Код

(brows.ActivePage.Controls[0] As TWebBrowser).GoHome;

Спасибо...

Это сообщение отредактировал(а) Alex - 7.10.2005, 22:30

Цитата(Quadr0 @ 7.10.2005, 16:46)

Я плакаль Tag - это преременная типа integer. Засунуть в неё TWebBrowser ну никак нельзя. Тебе в данном случае целесообразно просто создать класс - наследник TTabSheet со свойствои типа pointer (т.е. с указателем на объект или что либо). Например: Код TDataTabSheet = class(TTabSheet) public   WB: pointer; end; Этот метод универсален. Но если ты на страницах отображаешь лишь TWebBrowser, то вместо pointer прямо его и объявляй. При создании новой страницы объявляй её уже не как TTabSheet, а как TDataTabSheet. И будет у тебя доступ к браузеру через Код TDataTabSheet(PageCtrl.ActivePage).WB.Navigate('http://www.forum.vingrad.ru');

И что, что Tag имеет тип integer? Как это может повлиять на запись адреса, на который ссылается указатель в это свойство? Указатель на экземпляр TWebBrowser будет иметь размер не больше и не меньше, чем 4 байта (в Win32), что =SizeOf(Integer). Я сам не раз применял подобный подход для хранения указателя на нужные мне данные! Главное при таком подходе не забыть прибраться за собой, т.е. удалить инстансы. Да и не только я такое применяю - достаточно посмотреть в книженцию Марко Кенту "Delphi 6" из серии "для профессионалов", для того, чтобы в этом убедиться.