VPF::PageControl, TabSheet, WebBrowser - Форум программистов

usya2

Дата 10.3.2011, 21:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 6.3.2011

Репутация: нет
Всего: нет

Всем Здравствуйте.....
Подскажите как сделать так, чтобы в кождой новой созданной вкладке отображалась загруженная страница......
У меня вклаки создаются , но при смене адреса на адной , меняется адрес и на других)))))

Keeper89

Дата 11.3.2011, 00:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 6
Всего: 58

Цитата(usya2 @ 10.3.2011, 21:07

)

У меня вклаки создаются , но при смене адреса на адной , меняется адрес и на других)))))

Ну наверное надо создавать экземпляр браузера на каждой закладке.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Данкинг

Дата 11.3.2011, 01:08 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Цитата(usya2 @ 10.3.2011, 21:07

)

У меня вклаки создаются , но при смене адреса на адной , меняется адрес и на других)))))

Долго думал над этой фразой, особенно над смыслом скобочек в конце. Только так и не понял, как при смене адреса в одном экземпляре TWebBrowser может меняться адрес на других экземплярах.

--------------------

There's nothing left but silent epitaphs.

usya2

Дата 11.3.2011, 01:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 6.3.2011

Репутация: нет
Всего: нет

Цитата(Keeper89 @ 11.3.2011, 00:59)

Цитата(usya2 @ 10.3.2011, 21:07

)

У меня вклаки создаются , но при смене адреса на адной , меняется адрес и на других)))))

Ну наверное надо создавать экземпляр браузера на каждой закладке.

Подскажи Если не трудно как реализовать !..

Чучмек

Дата 11.3.2011, 09:40 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 4
Всего: 41

Создаеш на PageControl1 одну вкладку с одним компонентом WebBrowser1.
Кидаеш на форму edit1 для адреса и Button1-"ПЕРЕЙТИ".
Для WebBrowser1 создаеш обработчик события OnNewWindow2.

Код


procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
 var 
ts:TTabSheet;
wb:twebbrowser;
begin
ts:=TTabSheet.Create(nil);
ts.PageControl:=PageControl1;
wb:=twebbrowser.Create(nil);
ts.InsertControl(wb);
wb.Align:=alclient;
wb.ParentWindow:=ts.Handle;
wb.OnNewWindow2:=WebBrowser1NewWindow2;
ppDisp :=wb.ControlInterface;
end;

procedure TForm1.Button1Click(Sender: TObject);
var ts:TTabSheet;
begin
ts:=PageControl1.Pages[PageControl1.ActivePageIndex];
twebbrowser(ts.Controls[0]).Navigate(edit1.Text);
end;

Это сообщение отредактировал(а) Чучмек - 11.3.2011, 09:42

--------------------

умную мысль держи при себе, а дурной - поделись с другими

KAMIKAZE

Дата 9.5.2011, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 88
Регистрация: 17.1.2007

Репутация: нет
Всего: нет

Чучмек У меня только для первого таба создается, навигация для него же только выполняется. ЧТо я не так делаю? Код полностью твой, ничего не менял.

Чучмек

Дата 21.5.2011, 14:11 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 4
Всего: 41

TabControl или PageControl?
Вот рабочий пример.

Это сообщение отредактировал(а) Чучмек - 21.5.2011, 14:13

Присоединённый файл ( Кол-во скачиваний: 16 )

web_page.zip 236,09 Kb

--------------------

умную мысль держи при себе, а дурной - поделись с другими

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »