WebBrowser - NewWindow3 ?

0

Jak w WebBrowser użyć NewWindow3 ?
Info z MSDN: LINK

Szukałem na forum, google i nic nie moge znaleźć :/

Chciałbym wyciągnąć link otwieranej strony (poprzez Otwórz w nowym oknie, Shift + Kliknięcie na link lub kliknięcie w link z target=_blank) w WebBrowser i otworzyć stronę w domyślnej przeglądarce np. Firefox, bo normalnie otwiera sie w IE, więc jak użyć NewWindow3, aby pobrać URL ?

0
procedure TForm1.WebBrowser1NewWindow3(ASender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool; dwFlags: Cardinal;
  const bstrUrlContext, bstrUrl: WideString);
begin
    ShowMessage(bstrUrl);
end;

Funkcja po otwarciu nowego okna wyświetla jego url.

1 użytkowników online, w tym zalogowanych: 0, gości: 1