Einzelnen Beitrag anzeigen

Daniel B
(Gast)

n/a Beiträge
 
#9

Re: URL im TWebbrowser - immer mit dem Standartbrowser öffne

  Alt 17. Aug 2003, 00:32
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.
  Mit Zitat antworten Zitat