TWebbrowser, klick, bitte um hilfe

[Sharky]

Mal eine 0815 Lösung:

Delphi-Quellcode:

var
  cannavigate : Boolean;

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  Cancel := not (cannavigate);
end;

procedure TForm1.btn_NavigateClick(Sender: TObject);
const
  url = 'www.delphipraxis.net';
begin
  cannavigate := True;
  WebBrowser1.Navigate(url);
  cannavigate := False;
end;