Dynamiczne tworzenie WebBrowser

0

Jak po kliknięciu buttona utworzyć nową zakładkę na PageControl, a w niej WebBrowser? Jak się odwoływac do tego komponentu?
Próbowałem w ten sposób
procedure TForm1.Button1Click(Sender: TObject);
var
NewTabSheet: TTabSheet;
NewwebBrowser: TWebBrowser;

begin
NewTabSheet := TTabSheet.Create(PageControl1);
NewTabSheet.Caption := 'Nowa zakladka';
NewTabSheet.PageControl := PageControl1;

NewWebBrowser := TWebBrowser.Create(Self);
NewWebBrowser.Parent := NewTabSheet;

end;
Ale pojawia się błą
Cannot assign to a read-only property
A jak próbuje bez linijki
NewWebBrowser.Parent := NewTabSheet;
to tworzy się zakładka ale bez webbrowsera
co mam zrobić
Dzięki za pomoc

0

spróbuj parentwindow,a nie parent

0

Nie działa
Jest błą Incompatible types: 'HWND' and 'TTabSheet'
Co mam zrobić?

0
 NewWebBrowser.ParentWindow := NewTabSheet.Handle; 

:] mi działa.

0

A w związku z tworzeniem WebBrowsera, jak go usunąć przed stworzeniem nowego (sprawa tyczy się jednej formatki i tego samego obiektu WebBrowser)?
Przy tworzeniu obiektu po użyciu Destroy występuje błąd.

0

Nie Destroy a Free.

0

Free także w tym wypadku się krzaczy, podobnie jak FreeInstance.
Ale problem już rozwiązałem w ten sposób:

webbro.destroy ;
webbro := TWebBrowser.Create ( self ) ;
TWinControl ( webbro ) .Parent := self ;

1 użytkowników online, w tym zalogowanych: 0, gości: 1