Динамичесое создание WebBrowser

[LeoN]

Вот код,к-ый создает новую страницу и WebBrowser,но не помещает вроузер никуда,а надо на новую страницу.Как это реализовать?

begin
 t:= TTabSheet.Create(Pag);
 t.Visible:=True;
 t.Caption:='1';
 t.PageControl:=Pag;
 w:= TWebBrowser.Create(t);
 w.Visible:=true;
 w.GoHome;

Pag-PageControl
T:TTabSheet
W:TWebBrowser

[Квэнди]

Для начала хотя бы позицию и парент выставьте

[LeoN]

Дело в том что парент идет как интерфейс у WebBrowser т.е. IDispatch.

[Квэнди]

(webbrowser as tcomponent).parent

[LeoN]

короче будем работать через интерфейс, какой и как присваивать интерфейс?

[mihali4]

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

короче будем работать через интерфейс, какой и как присваивать интерфейс?

Можете работать хоть через задний проход, но умный человек вам подсказал - создаваемый компонент обязан иметь родителя.
Или вы хотите опровергнуть постулаты программирования в Дельфи?

[LeoN]

Вообщем надо динамически создать вклаку и на ней веббраузер.помогите,пожалуйста!

[mihali4]

Ладно, коли так...

procedure TForm1.Button1Click(Sender: TObject);
var new: TTabSheet;
    newwb: TWebBrowser;
begin
new:=TTabSheet.Create(Self);
new.Parent:=PageControl1;
new.PageControl:=PageControl1;
new.Caption:='new';
PageControl1.ActivePage:=new;
newwb := TWebBrowser.Create(Self);
TWinControl(newwb).Name:= 'NewWebBrowser';
TWinControl(newwb).Parent:= new;
newwb.Align := alClient;
end;

[Квэнди]

browser := TWebBrowser.Create( nil );
Form1.InsertControl( browser );

просто поиском по форуму...