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

最新推荐文章于 2020-04-12 01:30:13 发布

weixin_34226182

最新推荐文章于 2020-04-12 01:30:13 发布

阅读量188

点赞数

文章标签： python

原文链接：https://my.oschina.net/renyuansoft/blog/692604

版权

2019独角兽企业重金招聘Python工程师标准>>>

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;