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;