仿htm5网页鼠标移动按钮展开隐藏收缩特效源码

GetWindowRect (取窗口句柄 (), rect)
rect.顶边 ＝ rect.顶边 ＋ 24
focus ＝ 取鼠标所在窗口句柄 () ＝ 图形按钮1.取窗口句柄 ()
x ＝ 取鼠标水平位置 () － rect.左边
y ＝ 取鼠标垂直位置 () － rect.顶边
focus ＝ 假
.如果真 (x ＞ 图形按钮1.左边 且 x ＜ 图形按钮1.左边 ＋ 图形按钮1.宽度)
    .如果真 (y ＞ 图形按钮1.顶边 且 y ＜ 图形按钮1.顶边 ＋ 图形按钮1.高度)
        focus ＝ 真