TWebbrowser - Tabsheets

[API]

Hallo

Sind TabSheet und Web globale Variablen?
Deklariere sie doch lokal.

Delphi-Quellcode:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
 TabSheet: TTabSheet;
 Web: TWebbrowser;
begin
...

und ändere das:

Delphi-Quellcode:

 ... else with PageControl1.ActivePage do
                begin
                   with PageControl1.ActivePage.Controls[0] as TWebbrowser do
                     Navigate(ComboBox1.Text);
                end; ...