Добрый вечер! Вот я решил написать программу браузер с проксями. С проксями я разобрался, вот я бы хотел сделать так чтобы в PageControl создоавлось несколько TWebBrowser. Т.к. я хочу переходить на несколько сайтов с 1-им прокси. У меня получилось сделать динамичное создание вкладок. Но вот как туда добавить TWebBrowser с параметром Aligment:=alClient; Я не могу разобраться. Вот пример моего кода. Не могу создать tWebBrowser. Как? Помогите если вам не трудно!
Code: procedure TfrmMain.btnCreateWBClick(Sender: TObject); var wb1: TWebBrowser; begin wb1 := TWebBrowser.Create(frmMain); with wb1 do begin TWinControl(wb1).Parent:=frmMain; TWinControl(wb1).Name := 'wb1'; Align:= alClient; Visible:=True; end; end; не забывай разные имена указывать, а в Parent указывай страницу твоего PageControl
Code: procedure TForm1.Button1Click(Sender: TObject); Var tab : TTabSheet; browser : TWebBrowser; begin tab := TTabSheet.Create(PageControl1); tab.PageControl := PageControl1; tab.Caption := IntTOStr(PageControl1.PageCount); browser := TWebBrowser.Create(tab); TWinControl(browser).Parent := tab; browser.Align := alClient; browser.Navigate('www.google.ru'); end; Добавляет вкладку с браузером.