WebBrowser在打开页面前如何去 检查链接

Question

大概情景是这样：现在先用WebBrowser打开了一个自定义的网页，里面有个按钮；当我点击这个按钮时，WebBrowser就会链接到“http://www.baidu.com”，但我不想WebBrowser链接到百度，我想他自动跳到“http://www.google.com”请问怎么办 ？谢谢

Answer 1

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if URL = 'http://www.baidu.com' then
  begin
    Cancel := True;
    WebBrowser1.Navigate('http://www.google.com');
  end;
end;

Answer 2

谢谢兄台的关注...
但我试过了，还是有打开 百度啊
我想在没打开百度的页面前就跳到google

Answer 3

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  Cancel := False;
  if URL = 'http://www.baidu.com/' then
  begin
    Cancel := True;
    WebBrowser1.Navigate('http://www.google.com');
  end;
end;

Answer 4

你的问题不明确，你的按钮是在网页里面，还是在delphi程序里面呢？！