通过 WebBrowser 打开本地的一个WEB页面后，在页里。。。

通过 WebBrowser 打开本地的一个WEB页面后，在页面中有一个超联接，
如何将这个超联接指向我程序中的某一个菜单事件。
有看过类似程序，不知如何实验？？？？
多谢

5 个解决方案

#1

如何实现呀

#2

如果你菜单是 Menu1
那么
在BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
判断 URL ，符合条件就Menu1.Click;

#3

多谢，试试看。

#4

不能通过

#5

能通过
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if URL='D:\f.txt' then//注意URL和'D:\f.txt'的大小写 
    ShowMessage(URL)
end;