Habs jetzt so gelöst:
Delphi-Quellcode:
procedure TtfBenutzer.WebBrowser1BeforeNavigate2(ASender: TObject;
const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
var Cancel: WordBool);
begin
ShowMessage(Copy(
URL,8,Length(
URL)-8));
Cancel:=True;
end;
procedure TtfBenutzer.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('
Test');
end;
Das Leben kann sooo einfach sein....
Copy(URL,8,Length(URL)-8);
Das ist übrigens weil der TWebbrowser bei mir automatisch 'http://Test/' daraus macht
So wird der Link nur abgefangen und nicht ausgelöst.
Aber wie ich an das alt tag komme weis ich trotzdem nicht...
