Zitat von
freeman.bytes:
Nun habe ich einfach mal folgendes ausprobiert:
Delphi-Quellcode:
procedure TFrameBrowser.BrowserBeforeNavigate2(ASender: TObject;
const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
var Cancel: WordBool);
begin
Browser.Navigate(
URL+'
?view=pt');
end;
1. Du hast meinen Code "schlecht kopiert"
2. Wenn du .Navigate im BeforeNavigate2 aufrufst, wird BeforeNavigate2 immer wieder aufgerufen und es gibt einen 'Stack-Überlauf'.
3. '?view=pt' musst du ja nur dann anhängen, wenn der string in
URL nicht vorkommt.
4. Setze noch Cancel auf True
5. Wenn Bedingung 3 erfüllt ist, dann gibt's das Problem von 2 nicht.