Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.06.2009, 14:08   #1
Ziv4ik
Новичок
Джуниор
 
Регистрация: 25.06.2009
Сообщений: 2
Радость Вопрос по PageControl

Доброе время суток.
Я только учусь на Delpfi, но вот решил создать свой браузер(для работы с ucoz).Что как и где я продумал.
1)Использую компонент TEmbeddedWB и все к нему прилагающиеся.
2)Положил на форму PageControl, создал одну вкладку и впихнул на эту вкладку EmbeddedWB.
3)Создал кнопку, при нажатие на которую создаеться новая страница...
Код:

Код:
procedure TForm28.N3Click(Sender: TObject);
begin
pag:=TTabSheet.Create(self);
pag.Caption := 'Страница'+inttostr(pagecontrol2.PageCount+1);
pag.Name:='tabsheet'+inttostr(pagecontrol2.PageCount+1);
pag.PageControl := pagecontrol2;
pag.Visible := True;

webb:=TEmbeddedWB.Create(self);
TWinControl(webb).Parent:=pagecontrol2.Pages[pagecontrol2.PageCount-1];
TWinControl(webb).Name:='browse'+inttostr(pagecontrol2.PageCount+1);
webb.Visible := True;
webb.Align:= alClient;
end;
Прописал две переменные в разделе var:
pag:ttabsheet;
webb:TEmbeddedWB;

Тут все работает:
Вопрос!!! Как сделать так, что бы когда я нажимаю на вкладку, допустим 4-ую.Кнопки браузера(моего) работали с EmbeddebWB на этой 4-ой странице!!!
Если нажму на 8-ую вкладку, кнопки: Вперед, назад будут работать с браузером на этой вкладке...
В общем как в IE и в Opera...
Помогите.Очень надо.
Пробую не получаеться.В демках браузеров не разобрался.
Была такая вещь как WebBrowser(PageControl1.ActivePage. Tags)GoBack;
Но это не работает...
Ziv4ik вне форума Ответить с цитированием
Старый 25.06.2009, 14:25   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

А очень просто, когда ты переключишся на нужную вкладку свойство:
Код:
Текущий:=TEmbeddedWB(PageControl1.ActivePage.Controls[0])
Будет указывать тебе на первый компонент на этой вкладке, учитывая что он там у тебя единственный.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 25.06.2009, 18:06   #3
Ziv4ik
Новичок
Джуниор
 
Регистрация: 25.06.2009
Сообщений: 2
По умолчанию

Возможно мы не поняли друг друга...
Я имею ввиду, что в обычном состояние браузера всего 1 вкладка с одним WebBrowser внутри.
Благодаря одной кнопке я создаю точно такие же вкладки.
Но как сделать так, что бы кнопки в отдельности работали с WebBrowser'ами(а в них с разными сайтами) на разных вкладках.
Или я просто затупил сегодня.
Вместо слова текущий должна быть вкладка? или WebBrowser? EmbeddedWB1?
Ziv4ik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разыскивается PageControl Баламут Компоненты Delphi 6 25.06.2009 10:08
PageControl LIEN Общие вопросы Delphi 2 25.05.2009 13:20
PageControl Volt Общие вопросы Delphi 3 07.04.2009 19:19
PageControl chingiz Компоненты Delphi 14 22.11.2008 10:49
Прозрачный PageControl Nemez Компоненты Delphi 7 23.07.2008 06:58