Как динамически создать Twebbrowser? Опции

[Guest]

Пробую так:

Код

procedure TForm1.Button8Click(Sender: TObject);
var
 N : Integer;
 WebBrowser111 : TWebBrowser;
begin
 WebBrowser111 := TWebBrowser.Create( Form1 );
 WebBrowser111.Left := 0;
 WebBrowser111.Top := 0;
 WebBrowser111.Width := 100;
 WebBrowser111.Height := 100;
 WebBrowser111.Visible := True;
end;

абсолютно ничего не происходит (не создается и ошибки нет), в чем дело??
Думал, что потому что не прописал Owner или Parent... но они только для чтения...

[volvo]

Вот так попробуй:

procedure TForm1.Button8Click(Sender: TObject);
var
 N : Integer;
 WebBrowser111 : TWebBrowser;
begin
 WebBrowser111 := TWebBrowser.Create(Self);
 WebBrowser111.Left := 0;
 WebBrowser111.Top := 0;
 WebBrowser111.Width := 100;
 WebBrowser111.Height := 100;
 WebBrowser111.Visible := True;

 TControl(WebBrowser111).Parent := Form1;
 WebBrowser111.Navigate('http://www.rambler.ru');
end;

[Guest]

Сработало!!!
Спасибо!!!

[Guest]

volvo, кстати, а ты не можешь прокомментировать почему не получилось: WebBrowser111.Parent := Form1 ? Почему оно доступно только на чтение? По-моему я когда-то ведь так делал....

[volvo]

Почему оно доступно только на чтение? По-моему я когда-то ведь так делал...

Не знаю, по-моему, TWebBrowser.Parent всегда был только для чтения... Да и Owner тоже.