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; ...