秋·风

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

只需要用UniApplication.Parameters.Values[‘xxx’]读取url的参数然后调用就可以

例如:要打开公众号菜单的取样送检指南查询模块,在自定义菜单设定:http://www.xxxxx.com/m?app=qyzn

 

procedure TMainmForm.UnimFormCreate(Sender: TObject);

var app:string;

begin

  app := UniApplication.Parameters.Values['app'];

  if app='qyzn' then  UnimForm2.ShowModal();

posted on 2017-05-30 15:34  秋·风  阅读(1420)  评论(0编辑  收藏  举报