Popup mit TWebBrowser

[endeffects]

Hallo,

ich bin auf der Suche nach einer Möglichkeit mit dem TWebBrowser
ein neues Fenster (ohne Navigation, Statusbar und Menü) zu öffnen.

Bisher öffne ich ein neue Seite über:
FWebBrowser.Navigate('http://test.com', EmptyParam, EmptyParam, EmptyParam, EmptyParam);

Das Problem hierbei ist das die Variablen EmptyParam vom Typ OleVariant sind
und ich nicht weiß wie und ob ich dort Veränderungen vornehmen kann.

Hat Jemand vielleicht eine Idee wie ich nun ein Popup Fenster öffnen kann?

[shmia]

Zitat von endeffects:

ich bin auf der Suche nach einer Möglichkeit mit dem TWebBrowser
ein neues Fenster (ohne Navigation, Statusbar und Menü) zu öffnen.

Bisher öffne ich ein neue Seite über:
FWebBrowser.Navigate('http://test.com', EmptyParam, EmptyParam, EmptyParam, EmptyParam);

Das Problem hierbei ist das die Variablen EmptyParam vom Typ OleVariant sind
und ich nicht weiß wie und ob ich dort Veränderungen vornehmen kann.

Hat Jemand vielleicht eine Idee wie ich nun ein Popup Fenster öffnen kann?

Delphi-Quellcode:

var
   BrowserFlags : OleVariant;
begin
{ Flags:
Constant             Value Meaning
NavOpenInNewWindow   $01 Open the resource or file in a new window.
NavNoHistory         $02 Do not add the resource or file to the history list. The new page replaces the current page in the list.
NavNoReadFromCache   $04 Do not read from the disk cache for this navigation.
NavNoWriteToCache    $08 Do not write the results of this navigation to the disk cache.
NavAllowAutosearch   $10 If the navigation fails, the Web browser attempts to navigate common root domains (.com, .org, and so on). If this still fails, the URL is passed to a search engine.
}
   BrowserFlags := $01;

   FWebBrowser.Navigate('http://test.com', BrowserFlags, EmptyParam, EmptyParam, EmptyParam);

[endeffects]

oh danke,
zumindestens kompiliert er den teil jetzt, allerdings bekomm
ich einen exception error an dieser stelle, hab diverse parameter
und varianten ausprobiert, weiß allerdings nicht woran das liegt =(

[S2B]

Zitat von endeffects:

FWebBrowser.Navigate('http://test.com', EmptyParam, EmptyParam, EmptyParam, EmptyParam);

Ähm, mal ne Frage...
Warum hast du die ganzen leeren Parameter hinten dran? Die sind doch optional, oder?

[endeffects]

nein in diesem fall sind sie das nicht,
ich hab mir zu der navigate methode nun nocheinmal gründlich
die hilfe angesehen und denke nicht das ich damit ein entsprechendes
explorer fenster (popup) öffnen kann, hat jemand vielleicht sonst noch
eine idee wie ich das lösen könnte?

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