你先建个画面，起名“确认画面”，同时在“变量管理”——“内部变量”里，新建变量“pictureQR”（我自己起的名字），类型是“文本变量8位字符集”；新建变量“SURE”和“CANCEL”，类型也是“文本变量8位字符集”。在你的主画面上新建一个“对象选项板”——“智能对象”——“画面窗口”，默认为“画面窗口1”。选择其“对象属性”——“其他”——“画面名称”中的“动态”中连接变量“pictureQR”，更新周期为“有变化时”。选择你要用的按钮属性——事件——鼠标——鼠标动作，右键点击闪电符号，“c动作”，在脚本中输入：SetTagChar("pictureQR","确认画面.Pdl"); //连接画面
SetVisible(lpszPictureName,"画面窗口1",1); //使显示
SetTop(lpszPictureName,"画面窗口1",390); //确定窗口的y轴坐标
SetLeft(lpszPictureName,"画面窗口1",185); //确定窗口的x轴坐标
SetTagChar("QR_SURE","abc"); //abc为我假设的DB块中的点，也可以用M等
SetPropChar(lpszPictureName,"画面窗口1","CaptionText","确认"); //“确认”为弹出窗口的标题名称

在“确认画面.Pdl”中，可以设置按钮的动作属性，譬如“按左键”为1，脚本写SetTagBit(GetTagChar("SURE"),1); “ 释放左键”为0，脚本SetTagBit(GetTagChar("SURE"),0); CANCEL也可以编写同样的脚本。剩下的东西，你要自己琢磨了。