Popup mit TWebBrowser

[endeffects]

Delphi-Quellcode:

procedure OpenIE();
var
  ie: IWebBrowser2;
  Url, Flags, TargetFrameName, PostData, Headers: OleVariant;
begin
  // Uses ComObj + SHDocVw_TLB
  ie := CreateOleObject('InternetExplorer.Application') as IWebBrowser2;
  ie.Left := 100;
  ie.Top := 100;
  ie.Width := 640;
  ie.Height := 400;
  ie.MenuBar := false;
  ie.AddressBar := false;
  ie.Resizable := false;
  ie.StatusBar := false;
  ie.ToolBar := 0;
  Url := 'www.cryer.co.uk';
  ie.Navigate2(Url,Flags,TargetFrameName,PostData,Headers);
  ie.Visible := true;
end;