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

Question

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

Answer 1

能通过
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;