Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TWebBrowser и NewWindow2

Автор: Гость_Infinity 6.12.2005, 02:44

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

Автор: Snowy 6.12.2005, 10:49

Цитата

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

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

Цитата

Нужно : Что бы при открытии нового окна открывалась 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. Да, и страницу создавать не нужно. И веббраузер класть тоже не нужно.
Все само ляжет.