unigui手机端如何防止左右滑动退出页面

手机开发网页时，用户经常习惯性的左右滑动，然后程序就退出了。

查了各种论坛，对于unigui的知识点不多，几天没个结果，最后还是一个大佬指点解决了。

添加一段代码，在打开页面时，添加一条历史记录，用户滑动退出时，先退到历史记录页面，也就是当前页，从而实现左右滑动不退出。

//很奇怪的问题，直接这样用没效果，必须点一下任意组件，比如butt等按钮后才生效
procedure TMainmForm.UnimFormShow(Sender: TObject);
var   url:string;
begin
 url:=UniSession.ARequest.Referer;
  unisession.AddJS
    ('window.history.pushState("'+url+'", null, "'+url+'");'
    + 'window.history.replaceState("'+url+'", null, "'+url+'");');
end;