URL im TWebbrowser - immer mit dem Standartbrowser öffnen

[horst]

Wie kann ich eine URL die im TWebbrowser angeklickt wird, immer im Standard-Webbrowser öffnen lassen?
Soll also nie im TWebbrowser angezeigt werden.

[sakura]

Du musst im OnNavigate Ereigniss den ShellExecute Befehl nutzen und CancelNavigation (oder ähnlich) auf True setzen.

...:cat:...

[horst]

sorry, aber ich verstehe nicht wie du das meinst :roll:

[Daniel B]

Delphi-Quellcode:

ShellExecute(0, 'open', 'http://www.delphipraxis.net', nil, nil, SW_SHOW);

[horst]

ok,
aber dadurch sind evt. vorhandene links im twebbrowser immer noch "benutzbar" und genau das soll nicht sein, wie ich zu einer webseite komme ist schon klar.
danke für deine antwort

[sakura]

Du willst, daß der User den Link anklickt. Das Ereignis, welches Du abfangen musst (siehe Objekt-Inspektor) heisst genau: OnBeforeNavigate2. Darin erhälst Du im Parameter URL die URL, welche Du an ShellExecute übergeben musst. Zusätzlich musst Du die Variable Cancel auf False setzen.

...:cat:...

P.S.: Jetzt stimmen die Namen alle :mrgreen:

[horst]

ok, danke

[horst]

ne, icb blicks nicht...was muss ich den in OnBeforeNavigate2
reinschreiben?

[Daniel B]

Das könnte etwa so aussehen:

Delphi-Quellcode:

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
  wsTemp: WideString;
begin
  Cancel := False;
  wsTemp := URL;
  ShellExecute(0, 'open', PAnsiChar(wsTemp), nil, nil, SW_SHOW);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://delphipraxis.net');
end;

Musst Du aber selbst ausprobieren. Ich hab nur das geschrieben was Sakura gesagt hat.

[horst]

vielen dank für deine hilfe...
nur kann ich immer noch fleißig surfen, wenn ich die links anklicke.
ich habs so gemacht wie du es geschrieben hast.