Popup mit TWebBrowser

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