VPF::TWebBrowser и NewWindow2 - Форум программистов

Гость_Infinity

Дата 6.12.2005, 02:44 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

ПОМОГИТЕ ПЛИЗ!!!
Имеется :
PageControl1: TPageControl; в нём одна станица TabSheet1: TTabSheet; а в этой странице WebBrowser1: TWebBrowser;
Нужно : Что бы при открытии нового окна открывалась TabSheet2 в ней WebBrowser2
(короче как сделано в опере)

Snowy

Дата 6.12.2005, 10:49 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Цитата

(короче как сделано в опере)

в опере сделано совсем не так.

Цитата

Нужно : Что бы при открытии нового окна открывалась TabSheet2 в ней WebBrowser2

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  nt: TTabSheet;
  wb: TWebBrowser;
begin
  nt:=TTabSheet.Create(PageControl1);
  nt.PageControl:=PageControl1;
  wb:=TWebBrowser.Create(self);
  nt.InsertControl(wb);
  wb.Align:=alClient;
  nt.Caption:=Edit1.Text;
  wb.Navigate(Edit1.Text);
  PageControl1.ActivePageIndex:=PageControl1.PageCount-1;
end;

Добавлено @ 10:51
P.S. Да, и страницу создавать не нужно. И веббраузер класть тоже не нужно.
Все само ляжет.

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