не присваивается компонент TWebBrowser

[sim94]

добрый день! я новичок в данном форуме. пишу браузер. и моя проблема заключается в том,что когда я пытаюсь связать компнент webbrowser на компоненте pagecontrol , то после запуска программы, в pagecontrol не появляется страница.
мой кусок кода.

procedure TForm1.BitBtn7Click(Sender: TObject);
var
newTbl:TTabSheet; web:TWebBrowser;

begin

 newTbl:=TTabSheet.Create(PageControl1);
 newTbl.Parent:=PageControl1;
 newTbl.Caption:='Новая вкладка ' +InttoStr(Pagecontrol1.PageCount);
 newTbl.PageControl:=PageControl1;
 PageControl1.ActivePage:=newTbl;
 web:=twebbrowser.create(PageControl1.ActivePage);


end;

если я что не правильно сделал или дописал..(помогите плиз,кто чем сможет

[Delphi_ProGer]

Попробуйте ещё так:

web.Align := alClient;

[sim94]

Сообщение от Delphi_ProGer

Попробуйте ещё так:

web.Align := alClient;

это же расширение компонента по форме уже вставил,попробовал.пока что ничего не дало. думаю как реализовать процедуру присваивания..

[lomastr_]

Parent указать

[sim94]

Сообщение от lomastr_

Parent указать

уже пробовал( подскажите,как код можно реализовать.именно этот,если кто знает.я уже просто весь измучился..

[Delphi_ProGer]

Киньте исходник примера

[sim94]

Сообщение от Delphi_ProGer

Киньте исходник примера

я пишу сам.без исходников.уже много написал..но проблема вот только такая.с внедрением webbrowser на pagecontrol.

код который я хочу попробовать реализовать вот:

procedure TForm1.BitBtn7Click(Sender: TObject);
var
newTbl:TTabSheet; web:TWebBrowser;

begin

newTbl:=TTabSheet.Create(PageContro l1);
newTbl.Parent:=PageControl1;
newTbl.Caption:='Новая вкладка ' +InttoStr(Pagecontrol1.PageCount);
newTbl.PageControl:=PageControl1;
PageControl1.ActivePage:=newTbl;
web:=twebbrowser.create(PageControl 1.ActivePage);


end;

[evg_m]

web:=twebbrowser.create(PageControl 1.ActivePage);
web.allign:=alclient;
web.parernt:=newtbl; //pagecontrol.activepage;

[sim94]

Сообщение от evg_m

web:=twebbrowser.create(PageControl 1.ActivePage);
web.allign:=alclient;
web.parernt:=newtbl; //pagecontrol.activepage;

спасибо))я понял в чем косяк..в общем пока что все работает.переписал совсем по другому.

procedure TForm1.BitBtn7Click(Sender: TObject);
var
t:TTabSheet;
web:TWebBrowser;
begin

t:=TTabSheet.Create(self);
t.PageControl := PageControl1;
t.Caption:='Новая вкладка';
PageControl1.ActivePage:=t;


web:=TWebBrowser.Create(t);
web:= TWebBrowser.Create(Self);

//TWinControl(web).Name:= 'NewWebBrowser';
TWinControl(web).Parent:= t;
web.Align := alClient;

end;

теперь вопрос в другом. как сделать,чтобы при открытии открывалась хотя бы стартовая страница или страница введенная из combobox и как сделать так,чтобы работали основные кнопки назад,вперед,стоп и пр.. просто по началу они работали на голом компоненте webbrowser

[Аватар]

Очень это понравилось:

web:=TWebBrowser.Create(t);
web:= TWebBrowser.Create(Self);