Delphi截获webbrowser中关闭及右键消息处理一例

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
setini: tinifile;
oldPoint,newPoint: TPOINT;
begin
  if Msg.message = WM_CLOSE then {//判断是否关闭消息}  begin
    if Msg.HWND = Form1.handle then Form1.Close;
    if Msg.HWND = Form1.Webbrowser2.handle then begin //验证消息是否Webbrowser发来的
      Form1.Webbrowser2.Navigate('about:blank');
      Form1.HomePage.ActivePageIndex := 0;
    end;
    Handled := true;
  end;

  //如果是Webbrowser，则不许使用右键菜单
  if IsChild(Form1.Webbrowser2.handle,Msg.HWND) and ((Msg.message = WM_RBUTTONDOWN) or (Msg.message = WM_RBUTTONUP)) then begin

    GetCursorPos(oldPoint); //保存当前鼠标位置。     Form1.edtx.Text := IntToStr(oldPoint.X);     Form1.edty.Text := IntToStr(oldPoint.Y);     //鼠标位置写到配置文件     setini := tinifile.Create(GetCurDir + 'renyuansoft.ini');     setini.WriteInteger('SET','x1',strtoint(Form1.edtx.Text));     setini.WriteInteger('SET','y1',strtoint(Form1.edty.Text));     x1 := strtoint(Form1.edtx.Text);     y1 := strtoint(Form1.edty.Text);     setini.Free;     Handled := true;   end; end;