访问网页

try destroydialog biaoti catch()
rollout biaoti ""
(
local mousedd = false
local thepos = [0,0]

activeXControl ax "https://www.baidu.com/" width:950 height:550 pos:[25,25]
hyperlink msg "按住移动-右键退出" pos:[5,5] color:red enabled:false

on biaoti lbuttonup pos do mousedd = false ;
on biaoti lbuttondown pos do (mousedd = true ; ThePos = pos)
on biaoti mouseMove pos do if mousedd do SetDialogPos   biaoti  (mouse.screenpos - thepos)
on biaoti rbuttondown pos do destroydialog biaoti

)
createdialog biaoti 1000 600 bgcolor:(color 150 200 255) style:#()
posted @ 2019-12-27 23:48  HU_M  阅读(428)  评论(0编辑  收藏  举报