Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 

Re: Internet Explodierer via COM/OLE ansprechen?

  Alt 5. Nov 2008, 09:27
Zitat von mkinzler:
Späte Bindung sollte aber auch funktionieren
Delphi-Quellcode:
uses
  ComObj, SHDocVw{_TLB};

procedure OpenIE(Url, Flags, TargetFrameName, PostData, Headers: OleVariant);

var
  ie: IWebBrowser2;
begin
  ie := CreateOleObject('InternetExplorer.Application') as IWebBrowser2;
 { ie.Left := 120;
  ie.Top := 120;
  ie.Width := 700;
  ie.Height := 500; }

  ie.MenuBar := False;
  ie.AddressBar := False;
  ie.Resizable := False;
  ie.StatusBar := False;
  ie.ToolBar := 0;
  ie.Navigate2(Url, Flags, TargetFrameName, PostData, Headers);
  ie.Visible := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenIE('www.delphipraxis.net','','','','');
end;
Thomas
  Mit Zitat antworten Zitat