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