Inhalt des aktuellen Tabsheet drucken?

[mlspider]

Tolles Teil! Ich meinte aber damit, das für jeden Seitenaufruf ein neues Tabsheet angelegt wird und darauf eine neue Instanz von TWebbrowser. Also dynamisch zur Laufzeit.

Beispiel:

Delphi-Quellcode:

procedure TBrowser.NeuesFenster(Sender: TObject;var ppDisp: IDispatch; var Cancel: WordBool);
var
  Tabsheet: TTabsheet;
  Browser: TWebBrowser;
begin
  TabSheet:= PageControl1.ActivePage;
  ppDisp:= (PageControl1.ActivePage.Controls[0] as TWebBrowser).DefaultInterface;
end;

Du hast ja auf Deinen Tabsheet bereits die TWebbrowser-Kompo liegen.