Thema: Delphi Tabs erstellen

Einzelnen Beitrag anzeigen

Pfoto

Registriert seit: 26. Aug 2005
Ort: Daun
541 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: Tabs erstellen

  Alt 16. Nov 2007, 11:51
das Problem wird zuvor noch sein, den angeklickten Link im Webbrowser abzufangen
und dann dynamisch einen neuen Tab bzw. eine neue Page das Control einzufügen.

Ich habe diese Funktion gefunden:

Delphi-Quellcode:
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
 {
  Hier nun dynamisch eine neue Seite in das Tab- oder Pagecontrol einfügen
}

   with TTabSheet.Create(PageControl1) do
   begin
      PageControl := PageControl1;
      Caption := 'Neue Webseite...';
   end;
{
  ...und in die darauf erstellte Instanz des neuen WebBrowsers
  mit Hilfe der Variable "URL" die neue Seite laden...
  Und wie oben von Matze beschrieben, könntest du dies einfach
mit Hilfe eines Frames tun.
}


end;

Gruß
Pfoto

Edit: Bsp. erweitert.
Jürgen Höfs
  Mit Zitat antworten Zitat