访问网页

Posted 2020-11-23 humd

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:#()