PowerBuilder鼠标移入移出事件_happymagic的博客-程序员秘密

PowerBuilder中只有窗口和富文本有mouse事件外，其他都没有

PowerBuiler中没有鼠标移入移出的直接事件，需要我们自己定义

1.首先需要定义一个结构，用来存储鼠标的坐标（position）

2.声明两个全局外部函数

FUNCTION ulong GetCursorPos(ref position lpPoint) LIBRARY "user32.dll"
FUNCTION ulong ScreenToClient(ulong hwnd,ref position lpPoint) LIBRARY "user32.dll"

3.添加timer

在在窗口的open事件或者某个触发事件中添加如下代码:
Timer(0.1)//设置计时器,计时间隔为0.1秒

4.在窗口的timer事件中添加如下代码

position myPA
GetCursorPos(myPA)//获取当前光标位置
ScreenToClient(Handle(this),myPA)//转化为客户区表示
Integer li_xpos,li_ypos
li_xpos = myPA.xpos
li_ypos = myPA.ypos
st_2.Text = String(li_xpos) + ',' + String (li_ypos)
 
Integer li_dww,li_dwh
li_dww = this.tv_parentid.Width//获取数据窗口的Width属性(单位是PB Units)
li_dwh = this.tv_parentid.Height//获取数据窗口的Height属性(单位是PB Units)
li_dww = UnitsToPixels(li_dww,XUnitsToPixels!)//把用PB Units为单位的Width转化为用Pixels为单位
li_dwh = UnitsToPixels(li_dwh,YUnitsToPixels!)//把用PB Units为单位的Height转化为用Pixels为单位
st_3.Text = String(li_dww) + ',' + String (li_dwh)
 
Integer li_dwx,li_dwy
li_dwx = this.tv_parentid.X//获取数据窗口的X属性(与窗口左边界的距离,单位是PB Units)
li_dwy = this.tv_parentid.Y//获取数据窗口的Y属性(与窗口上边界的距离,单位是PB Units)
li_dwx = UnitsToPixels(li_dwx,XUnitsToPixels!)//把用PB Units为单位的X转化为用Pixels为单位
li_dwy = UnitsToPixels(li_dwy,YUnitsToPixels!)//把用PB Units为单位的Y转化为用Pixels为单位
st_4.Text = String(li_dwx) + ',' + String (li_dwy)
 
IF li_xpos < li_dwx OR li_ypos < li_dwy OR li_xpos > li_dwx + li_dww OR li_ypos > li_dwy + li_dwh THEN
 w_departmentdetail.backcolor=rgb(0,  0,  255)//光标在控件外,背景为为蓝色
ELSE
 w_departmentdetail.backcolor=rgb(255,  0,  0)//光标在控件内,背景为红色
END IF

5.效果图

中间的灰色区域是我的数据窗口tv_department

右侧的三行数分别为：st_2,st_3,st_4
————————————————
版权声明：本文为CSDN博主「ClearLoveQ」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/ClearLoveQ/article/details/81541452

本文链接：https://blog.csdn.net/happymagic/article/details/107497238

原作者删帖不实内容删帖广告或垃圾文章投诉

智能推荐

fastjson解析HttpServletRequest请求_fastjson httprequest_乄闕的博客-程序员秘密

解析HttpServletRequest请求中的json数据JsonUtilimport java.io.IOException;import javax.servlet.http.HttpServletRequest;import com.alibaba.fastjson.JSON;import com.alibaba.fastjson.JSONObject;public class JsonUtil { public static JSONObject getRequestPost

getParameters failed (empty parameters)_Steve_XiaoHai的博客-程序员秘密

通过debug，逐行运行，发现进入到activityThread类中，在修改activity状态时，释放不掉activity。通过修改activty的lanchMode为：singleTask，解决了此问题。使用相机资源导致出现的错误。

【转】Neutral Density (ND) Filters 中性灰色滤镜_daisyhd的博客-程序员秘密

富士 Neutral Density (ND) Filters 浓度补正滤色片简称减光片，应用于照相时在没有办法或不改变光源强度的情况之下，可以精确的调整曝光量，使得能够在想要的光圈与快门速度条件下，拍摄特殊效果的景物。在 LCD 液晶显示器产业， ND- Filter 常被用来减低面板亮度，以便在各种不同亮度条件下检查液晶表面波纹和亮点缺失，以及其它各种 FPD 之检测应用。ND減光鏡片可以大量減少進光量，並控制景深、強調主題，因此適合大口徑的鏡頭使用。當背景呈現模糊效果時，主題就會清楚的顯現。它廣泛的被

grunt使用小结_茁然-v的博客-程序员秘密

1、安装Grunt：如果你之前安装过老的0.3版本，请先卸载：npm uninstall -g grunt安装Grunt命令行（CLI）：npm install -g grunt-cli注1：-g代表全局安装，Grunt有二个版本：服务器端版本（grunt）和客户端版本（grunt-cli）。注2：安装grunt-cli并不等于安装了grunt！grunt CLI的任务很简

华为机试在线训练-牛客网（25）四则运算_Ctrlturtle的博客-程序员秘密

题目描述请实现如下接口 /* 功能：四则运算 * 输入：strExpression：字符串格式的算术表达式，如: "3+2*{1+2*[-4/(8-6)+7]}" * 返回：算术表达式的计算结果 */ public static int calculate(String strExpression)

ITK spacing的问题_ID5418的博客-程序员秘密

double spacing[3]; spacing[0] = reader->GetOutput()->GetSpacing()[0]; spacing[1] = reader->GetOutput()->GetSpacing()[1]; spacing[2] = reader->GetOutput()->GetSpacing()[2]; int dims[3];