访问网页

2021-05-05 02:29

阅读:505

标签:down   lse   str   creat   oca   use   control   enabled   dialog   

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

访问网页

标签:down   lse   str   creat   oca   use   control   enabled   dialog   

原文地址:https://www.cnblogs.com/humd/p/12110108.html


评论


亲,登录后才可以留言!