Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - TWebbrowserkompo dynamisch in neues Tabsheet


DorJo - Sa 24.05.08 17:39
Titel: TWebbrowserkompo dynamisch in neues Tabsheet
Hy @ all...
ich hab ma wieder ne frage ;)
und zwar es soll ein neues Tabsheet zu laufzeiten erstellt werden und darin dann eine TWebbrowserkompo erstellt werden. Das hab ich so gelöst:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
var
  Webbrowser:   TWebbrowser;
...
with TTabSheet.Create(PageControl1) do
begin
   PageControl := PageControl1;
   Caption := 'Test';
   PageControl.ActivePageIndex:= PageControl1.PageCount-1;
   Webbrowser.Create(PageControl.ActivePage);
   Webbrowser.Align:=alClient;
   Webbrowser.Show;
end;

Nur leider zeigt das nicht gerade den gewünschten Effekt :( Das neue Tabsheet wird erstellt... und die aktive Seite auf das neue Tabsheet gestellt... ar mehr leider nicht :(

Ich bedanke mich schon mal im Vorraus für eure antworten!

MfG

Dor Jo


Timosch - Sa 24.05.08 17:52

user profile iconDorJo hat folgendes geschrieben:


Delphi-Quelltext
1:
   Webbrowser.Create(PageControl.ActivePage);                    


Was soll das denn sein? Wenn du eine weitere Instanz von TWebBrowser erstellen willst, brauchst du eine weitere Variable.

Delphi-Quelltext
1:
2:
3:
4:
var WebBrowser1 : TWebBrowser
begin
WebBrowser1:=TWebBrowser.Create(...);
end;


DorJo - Sa 24.05.08 18:25

Zitat:

Delphi-Quelltext
1:
2:
3:
4:
var WebBrowser1 : TWebBrowser
begin
WebBrowser1:=TWebBrowser.Create(...);
end;

Das hab ich doch auch gemacht! halt bloß mit der Variablen "Webbrowser"... mit deiner Variante funzt es ar au ni :(