Skriptfehler

[shmia]

Versuch mal neue Browserfenster zu blocken:

Delphi-Quellcode:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
begin
   if ChkBlockNewWindows.Checked then
   begin
      cancel := True;
      SetStatusLabel('New Browser Window blocked !');
   end;
end;