易语言动态提示组件

易语言动态提示组件

@易语言源码分享站

.版本 2
.支持库 eAPI
.支持库 iext

.程序集 窗口程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx)

.子程序 _时钟1_周期事件

.判断开始 (取鼠标所在窗口句柄 () ＝ 按钮1.取窗口句柄 ())
    标签1.背景颜色 ＝ #蓝色
    标签_提示.移动 (取鼠标水平位置 () － 左边, 取鼠标垂直位置 () － 顶边, , )
    标签_提示.可视 ＝ 真
    标签_提示.标题 ＝ “按钮”
.默认
    标签1.背景颜色 ＝ #默认色
    .如果真 (取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())
        标签_提示.可视 ＝ 假
    .如果真结束

.判断结束

.判断开始 (取鼠标所在窗口句柄 () ＝ 透明标签2.取窗口句柄 ())
    透明标签1.文本颜色 ＝ #红色
    标签_提示.移动 (取鼠标水平位置 () － 左边, 取鼠标垂直位置 () － 顶边, , )
    标签_提示.可视 ＝ 真
    标签_提示.标题 ＝ “透明标签”
.默认
    透明标签1.文本颜色 ＝ #黑色
    .如果真 (取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())
        标签_提示.可视 ＝ 假
    .如果真结束

.判断结束
' 本源码来自三叶资源网(www.sanye.cx)
.判断开始 (取鼠标所在窗口句柄 () ＝ 编辑框1.取窗口句柄 ())
    标签2.背景颜色 ＝ #绿色
    标签_提示.移动 (取鼠标水平位置 () － 左边, 取鼠标垂直位置 () － 顶边, , )
    标签_提示.可视 ＝ 真
    标签_提示.标题 ＝ “编辑框”
.默认
    标签2.背景颜色 ＝ #默认色
    .如果真 (取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())
        标签_提示.可视 ＝ 假
    .如果真结束

.判断结束

.判断开始 (取鼠标所在窗口句柄 () ＝ 选择框1.取窗口句柄 ())
    标签3.背景颜色 ＝ #黄色
    标签_提示.移动 (取鼠标水平位置 () － 左边, 取鼠标垂直位置 () － 顶边, , )
    标签_提示.可视 ＝ 真
    标签_提示.标题 ＝ “选择框”
.默认
    标签3.背景颜色 ＝ #默认色
    .如果真 (取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())
        标签_提示.可视 ＝ 假
    .如果真结束

.判断结束

.判断开始 (取鼠标所在窗口句柄 () ＝ 单选框1.取窗口句柄 ())
    标签4.背景颜色 ＝ #红色
    标签_提示.移动 (取鼠标水平位置 () － 左边, 取鼠标垂直位置 () － 顶边, , )
    标签_提示.可视 ＝ 真
    标签_提示.标题 ＝ “单选框”
.默认
    标签4.背景颜色 ＝ #默认色
    .如果真 (取鼠标所在窗口句柄 () ＝ 取窗口句柄 ())
        标签_提示.可视 ＝ 假
    .如果真结束

.判断结束



.子程序 __启动窗口_创建完毕

' 本源码来自三叶资源网(www.sanye.cx)