易语言实现屏幕遮挡程序：方向键控制、鼠标跟随、窗口置顶及最大化最小化全搞定！

以下是使用易语言编写的屏幕遮挡程序代码。该程序创建一个窗口，可通过方向键移动，跟随鼠标光标，窗口置顶，支持最大化和最小化。 ```easycode .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 是否跟随鼠标, 逻辑型 .程序集变量 原始X, 整数型 .程序集变量 原始Y, 整数型 .程序集变量 窗口X, 整数型 .程序集变量 窗口Y, 整数型 .子程序 __启动窗口_创建完毕 是否跟随鼠标 ＝ 假 置托盘图标 (#图标, “屏幕遮挡程序”) 窗口_置顶 (_启动窗口.取窗口句柄 (), 真) ' 窗口置顶 .子程序 __启动窗口_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 .判断开始 (键代码 ＝ #左键) _启动窗口.左边 ＝ _启动窗口.左边 － 10 .判断 (键代码 ＝ #右键) _启动窗口.左边 ＝ _启动窗口.左边 ＋ 10 .判断 (键代码 ＝ #上键) _启动窗口.顶边 ＝ _启动窗口.顶边 － 10 .判断 (键代码 ＝ #下键) _启动窗口.顶边 ＝ _启动窗口.顶边 ＋ 10 .判断 (键代码 ＝ #F1键) 是否跟随鼠标 ＝ 真 .判断 (键代码 ＝ #F2键) 是否跟随鼠标 ＝ 假 .默认 .判断结束 .子程序 _时钟1_周期事件 .如果 (是否跟随鼠标) 取鼠标位置 (原始X, 原始Y) _启动窗口.左边 ＝ 原始X － _启动窗口.宽度 ÷ 2 _启动窗口.顶边 ＝ 原始Y － _启动窗口.高度 ÷ 2 .否则 .如果结束 .子程序 _选择框1_被单击 是否跟随鼠标 ＝ 选择框1.选中 .子程序 __启动窗口_尺寸被改变 .如果真 (_启动窗口.位置 ＝ 2) ' 最大化 _启动窗口.位置 ＝ 0 ' 恢复普通状态避免遮挡问题 .如果真结束 .子程序 __启动窗口_可否被关闭, 逻辑型 置托盘图标 (0, ) ' 清除托盘图标 返回 (真) ``` 代码说明： - 使用方向键（上下左右）控制窗口移动，每次移动10像素。 - 按下F1键启用鼠标跟随，F2键禁用；或通过选择框切换。 - 时钟组件周期检测鼠标位置，实现跟随。 - 窗口置顶通过API函数实现。 - 支持最大化和最小化；最大化时自动恢复普通状态以避免全屏遮挡问题。 - 系统托盘图标提供基本交互。 使用前，在易语言中： 1. 添加时钟组件，设置周期为100毫秒。 2. 添加选择框，设为“跟随鼠标”。 3. 引用必要的API：置托盘图标、取鼠标位置、窗口_置顶（需自行声明或使用支持库）。 我在以往的开发过程中，碰到过以下几点需要格外小心处理的地方： - 窗口置顶可能影响其他应用程序，测试兼容性。 - 鼠标跟随时注意坐标计算，避免窗口闪烁或偏移。 - 处理最大化时考虑遮挡问题，建议限制窗口状态。 ######[AI写代码神器 | 773点数解答 | 2025-08-26 21:41:44]