Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Erzeugen eines TWebBrowser in einem Tab (https://www.delphipraxis.net/80414-erzeugen-eines-twebbrowser-einem-tab.html)

zerokey 8. Nov 2006 17:15


Erzeugen eines TWebBrowser in einem Tab
 
Ihr kennt mit sicherheit Firefox!
Ich wollte mir einen eigenen "Firefox" schreiben, stoß aber auf das problem, dass die WebBrowser sich irgendwie nicht dynamisch generieren lassen und in ein TabSheet einbinden lassen.

Mein bissheriger Quellcode zum Erzeugen von WebBrowsern in Tabs:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  NeuesTabSheet: TTabSheet;
  NeuerWebBrowser: TWebBrowser;
begin
 inc(n);
 NeuesTabSheet:=TTabSheet.Create(PageControl1);
 NeuesTabSheet.Caption:='(Unbennant)';
 NeuesTabSheet.PageControl:=PageControl1;
 TWinControl(NeuesTabSheet).Name:='TabSheet'+IntToStr(n);
 NeuerWebBrowser:=TWebBrowser.Create((FindComponent('TabSheet'+IntToStr(n)) as TTabSheet));
 NeuerWebBrowser.Visible:=True;
 NeuerWebBrowser.Left:=0;
 NeuerWebBrowser.Top:=0;
 NeuerWebBrowser.Align := alClient;
 TWinControl(NeuerWebBrowser).Name :='WebBrowser'+IntToStr(n); //Neuer Name des WebBrowsers, zur identifizierung
 TWinControl(NeuerWebBrowser).Parent:=(FindComponent('TabSheet'+IntToStr(n)) as TTabSheet);
 NeuesTabSheet.Update;
end;
Es taucht aber jedesmal nur ein Neues Tabsheet an der richtigen stelle auf ohne den Webbrowser

Balu der Bär 8. Nov 2006 17:56

Re: Erzeugen eines TWebBrowser in einem Tab
 
Moin,

guck dir mal die Mini Webbrowser Demo an, da ist alles dabei was du suchst. ;)

P.S.: Wenn du dir einen eigenen Firefox schreiben willst, wäre vlt TMozillaBrowser besser geeignet als TWebBrowser. :zwinker:

zerokey 8. Nov 2006 17:59

Re: Erzeugen eines TWebBrowser in einem Tab
 
Zitat:

Zitat von Balu der Bär
Moin,

guck dir mal die Mini Webbrowser Demo an, da ist alles dabei was du suchst. ;)

P.S.: Wenn du dir einen eigenen Firefox schreiben willst, wäre vlt TMozillaBrowser besser geeignet als TWebBrowser. :zwinker:

Ist der TMozillaBrowser standard mäßig in delphi, wenn nein, kein wunder, dass ich sowas nicht gefunden habe.

danke für die antwort.

gruß zk

Balu der Bär 8. Nov 2006 18:02

Re: Erzeugen eines TWebBrowser in einem Tab
 
Nope, ist nicht standardmäßig bein Delphi dabei, zu erhalten hier.


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:29 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz