WebBrowser в квадрате

[VenMaster]

На этом форуме мне очень помогли с созданием на вкладках PageControl компонента WebBrowser.
И вот код:
procedure TForm1.ButtonAddClick(Sender: TObject);
var myWeb: TWebBrowser;
mytab: TTabSheet;
begin
with PageControl1 do
begin
mytab:=TTabSheet.Create(Self);
mytab.PageControl:=PageControl1;
mytab.Caption:='Page '+IntToStr(PageCount);
end;
myWeb:=TWebBrowser.Create(Self);
myWeb.ParentWindow:=mytab.Handle;
myWeb.Align:=alClient;
end;

Помогите пожалуйста с такой ситуацией. Нужно чтоб при нажатии OnClick кнопки, URL-адрес присваивался WebBrowser'у на активной вкладке PageControl.
Срочно надо.... Зарание спасибо

[BOBAH13]

Может хватит дублировать темы ? ЧТо за флуд.... такой вопрос в сети обсуждался 100% много раз... в дельфи ворлд есть про описание инициализации броузера а потом ему присваивания текста html или просто Navigate.

[Stilet]

VenMaster

Вован прав, материала много.
Но раз уж спросил то:
1. вместо myWeb.ParentWindow:=mytab.Handle; как уже тебе ранее правильно заметили ставь TWinControl(myWeb).Parent:=mytab;
2. Напрмер так:

procedure TForm1.Button2Click(Sender: TObject);
var k:byte;i:TWebBrowser;
begin
//********* FOR ******************
for k :=0  to PageControl1.ActivePage.ControlCount-1 do
begin
 if PageControl1.ActivePage.Controls[k].ClassName='TWebBrowser' then begin
  TWebBrowser(PageControl1.ActivePage.Controls[k]).Navigate('d:\');
  break;
 end;
end;
//******* END FOR ****************{}
end;