TTabSheet *TS=new TTabSheet(PC);
TS->Parent=PC;
TS->Caption="Hi"; TS->PageControl=PC;
TButton *BT=new TButton(TS);// Кидаем компонент на созданный лист
BT->Caption="Hi"; BT->Align=alClient;
BT->Parent=TS;
Многооконное приложение
Помогите пожалуйста, как сделать чтобы при открытии ссылки в новой вкладке, создавался новый Tab с броузером внутри?
ну как в web-броузерах.
ну как в web-броузерах.
TPageControl тебе в помощь, страницы создаешь динамически.
[QUOTE=IL84]TPageControl тебе в помощь, страницы создаешь динамически.[/QUOTE]
Блин, спасибо что подсказал, чтобы я без твоего совета делал!
Есть ещё какие-нибудь советы?
Блин, спасибо что подсказал, чтобы я без твоего совета делал!
Есть ещё какие-нибудь советы?
А чем тебе совет IL84 не нравится?
Или конкретнее поясняй чего ты добиться хочешь.
Или конкретнее поясняй чего ты добиться хочешь.
[QUOTE=Hydra]А чем тебе совет IL84 не нравится?
Или конкретнее поясняй чего ты добиться хочешь.[/QUOTE]
Есть Форма с PageControl допустим на PageControl имеется один Tab с компонентом TWebBrowser внутри, Что нужно?
если при просмотре сайта в TWebBrowser при нажатии ссылки должно открыться новое окно, надо создать ещё один Tab с WebBrowser внутри и открыть ссылку!
Или конкретнее поясняй чего ты добиться хочешь.[/QUOTE]
Есть Форма с PageControl допустим на PageControl имеется один Tab с компонентом TWebBrowser внутри, Что нужно?
если при просмотре сайта в TWebBrowser при нажатии ссылки должно открыться новое окно, надо создать ещё один Tab с WebBrowser внутри и открыть ссылку!
зачем велосипед изобретать? (OPERA, MAXTHON)....
эта тема уже обсуждалась... пользуйтесь поиском...
используй TWebBrowser.OnNewWindow2... подробная информация в help
эта тема уже обсуждалась... пользуйтесь поиском...
используй TWebBrowser.OnNewWindow2... подробная информация в help
Блин, а куда мое вчерашнее сообщение делось?
Вот добавление вкладки (PC=PageControl)
Вот добавление вкладки (PC=PageControl)
Код:
[QUOTE=Hydra]Блин, а куда мое вчерашнее сообщение делось?
Вот добавление вкладки (PC=PageControl)
[/QUOTE]
А на дельфи можно?
Вот добавление вкладки (PC=PageControl)
Код:
TTabSheet *TS=new TTabSheet(PC);
TS->Parent=PC;
TS->Caption="Hi"; TS->PageControl=PC;
TButton *BT=new TButton(TS);// Кидаем компонент на созданный лист
BT->Caption="Hi"; BT->Align=alClient;
BT->Parent=TS;
TS->Parent=PC;
TS->Caption="Hi"; TS->PageControl=PC;
TButton *BT=new TButton(TS);// Кидаем компонент на созданный лист
BT->Caption="Hi"; BT->Align=alClient;
BT->Parent=TS;
А на дельфи можно?
[quote=Hudra]Блин, а куда мое вчерашнее сообщение делось?[/quote]
видно его просто небыло, удаленных постов в теме нет.
видно его просто небыло, удаленных постов в теме нет.
Дельфи под рукой нет, но вроде что-то типа.
Аналогично и с компонентом в листе, если это сработает.
Код:
var
TS : TTabShhet;
begin
TS.Create(PC);
TS.Parent=PC; TS.Caption='Hi'; TS.PageControl=PC;
end;
TS : TTabShhet;
begin
TS.Create(PC);
TS.Parent=PC; TS.Caption='Hi'; TS.PageControl=PC;
end;
Аналогично и с компонентом в листе, если это сработает.
Сдаётся мне, что никто не понял потребностей автора... Он, как мне кажется, интересуется не созданием TTabSheet'а, а вовсе созданием TWebBrowser с документом, которое инициируется событием OnNewWindow2, что несомненно является более сложной задачей...
[QUOTE=mfender]Сдаётся мне, что никто не понял потребностей автора... Он, как мне кажется, интересуется не созданием TTabSheet'а, а вовсе созданием TWebBrowser с документом, которое инициируется событием OnNewWindow2, что несомненно является более сложной задачей...[/QUOTE]
А разве Tab не к PageControl относится?
З.Ы. А откуда вообще TWebBrowse взялся - билдер 6-ой его не знает :-\
А разве Tab не к PageControl относится?
З.Ы. А откуда вообще TWebBrowse взялся - билдер 6-ой его не знает :-\
[QUOTE=Hydra]А разве Tab не к PageControl относится?
З.Ы. А откуда вообще TWebBrowse взялся - билдер 6-ой его не знает :-\[/QUOTE]
OnNewWindow2
Обьясняю проще,
Какой код нужно написать чтобы при обработке этой процедуры создавался новый Tab с компонентом TWebBrowser(а Navigate у него чтобы был адрес в ссылке при клике!
З.Ы. А откуда вообще TWebBrowse взялся - билдер 6-ой его не знает :-\[/QUOTE]
OnNewWindow2
Обьясняю проще,
Какой код нужно написать чтобы при обработке этой процедуры создавался новый Tab с компонентом TWebBrowser(а Navigate у него чтобы был адрес в ссылке при клике!
Почтенный Hydra(нт) не совсем адекватен, кажетсо...
_____
[QUOTE=verybadbug]_____[/QUOTE]
Спасибо, всё работает только как закрыть активный tab например при двойном нажатии мышью?
Спасибо, всё работает только как закрыть активный tab например при двойном нажатии мышью?
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if PageControl1.PageCount > 0 then
PageControl1.Pages[PageControl1.ActivePageIndex].Free;
end;
begin
if PageControl1.PageCount > 0 then
PageControl1.Pages[PageControl1.ActivePageIndex].Free;
end;