DELPHI 鼠标离开窗口

2024-11-05

delphi中响应鼠标进入或离开控件的方法

Delphi没有MouseEnter与MouseLeave的事件,网上说可以响应CM_MOUSEENTER和CM_MOUSELEAVE消息来实现.这两个消息是VCL自己定义的消息,看了Delphi的Controls.pas果然看到有以下两行: CM_MOUSEENTER = CM_BASE + 19; CM_MOUSELEAVE = CM_BASE + 20; 其中CM_BASE = $B000 可以有两种方式来利用: 方式一:在自定义的控件中添

c# 任务栏托盘图标鼠标进入MouseEnter和鼠标离开MouseLeave实现

c#的任务栏托盘图标控件NotifyIcon只有MouseMove事件,MouseMove事件刷新很快,很不好用,而且我们有时需要鼠标进入和离开的事件,但是不知道c#怎么回事,没有提供,那么就只能自己来处理了. 解决鼠标进入和离开的思路是: 1.通过MouseMove事件确定当前鼠标已经进入托盘图标的范围 2.进入后启动检测timer 3.定时检测托盘图标的位置和当前鼠标的位置,判断鼠标是否在托盘图标的范围内主要难点:获取当前托盘图标的位置获取托盘图标位置的思路: 1.查找到托盘图标所在的窗

WPF 程序鼠标在窗口之外的时候，控件拿到的鼠标位置在哪里？

原文:WPF 程序鼠标在窗口之外的时候,控件拿到的鼠标位置在哪里? 在 WPF 程序中,我们有 Mouse.GetPosition(IInputElement relativeTo) 方法可以拿到鼠标当前相对于某个 WPF 控件的位置,也可以通过在 MouseMove 事件中通过 e.GetPosition(IInputElement relativeTo) 方法拿到同样的信息.不过,在任意时刻去获取鼠标位置的时候,如果鼠标在窗口之外,将获取到什么点呢? 本文将介绍鼠标在窗口之外时获取到的鼠标位

jquery自定义滚动条鼠标移入或滚轮时显示鼠标离开或悬停超时时隐藏

一.需求: 我需要做一个多媒体播放页面,左侧为播放列表,右侧为播放器.为了避免系统滚动条把列表和播放器隔断开,左侧列表的滚动条需要自定义,并且滚动停止和鼠标离开时要隐藏掉. 二.他山之石: 案例来自http://www.17sucai.com/pins/426.html但是下载demo需要先注册,还要20积分.显然,这违背了互联网的共享精神,so,F12,load it. 分析源码,发现了一个强大灵活的插件,感谢开发者.插件:jquery.jscrollpane.min.js主页: http:/

QT窗口渐现效果，窗口震动效果，鼠标移动窗口

//窗口渐现效果void MainWindow::closeWindowAnimation() //关闭窗口效果 { QPropertyAnimation *animation = new QPropertyAnimation(this,"windowOpacity"); animation->setDuration(); animation->setStartValue(); animation->setEndValue(); animation->start

jquery.datetimepicker.js 当鼠标离开时，不选中当前时间，以达到清空的目的

validateOnBlur:true 当鼠标离开时,不选中当前时间,以达到清空的目的使用方法: // 时间设置 $('#BankProduct_sale_begin').click(function(){ $(this).datetimepicker('show'); }); $('#BankProduct_sale_begin').datetimepicker({ validateOnB

我在tmux中最不可少的配置: 用鼠标切换窗口/调节分屏大小

前两天在给另外一个团队帮忙时,看他们在Rails日志.代码文件.git文件系统里面来回穿梭,觉得他们太累了,于是就介绍了 tmux 给他们用.但只讲了一点基本的开窗口.分屏,没给讲太多技巧,因为一下子讲太多也消化不了,还不如让他们自己慢慢学(记得 man tmux 和 C-b ? 就差不多了). 不过过了一会儿,小陆问我: 咦,你怎么可以用鼠标将窗口拖大拖小? 我说,"就几个配置而已",正说要让他到我博客上看详细说明,突然想起:咦,我好像没写过这个? 以前在 ~/.tmux.conf

js jq 实现鼠标经过div背景以进度条方式变宽，鼠标离开变小，同时文字颜色和原来不一样

<!DOCTYPE html> <html> <head> <title></title> <script typet="text/javascript" src="http://libs.baidu.com/jquery/1.9.1/jquery.min.js"></script> </head> <style> .gg{ height: 50px; wid

Duilib 实现右下角弹出像QQ新闻窗口，3秒后窗口透明度渐变最后关闭，若在渐变过程中鼠标放到窗口上，窗口恢复最初状态(二)

效果: 1.定义两个个定时器ID #define ID_TIMER_DISPLAY_DELAY 30 #define ID_TIMER_DISPLAY_CLOSE 40 2.添加一个成员函数和成员变量 void SetAlpha(HWND hWnd,int Alpha); int m_nFlag ; void CPopUpWnd::SetAlpha(HWND hWnd,int Alpha){ HINSTANCE hInst = LoadLibrary(L"User32.DLL");

marquee 标签的鼠标放上去滚动效果鼠标离开继续滚动

效果很实用,可以轻松的实现鼠标放上去停止滚动.鼠标离开继续滚动的效果.下面是具体的用法(特别注意onMouseOver和onMouseOut是需要同时写进去才会出现比较好的效果):onMouseOut="this.start()" :用来设置鼠标移出该区域时继续滚动onMouseOver="this.stop()":用来设置鼠标移入该区域时停止滚动代码如下: <marquee onMouseOut="this.start()" onMou

JavaScript(获取或设置html元素的宽,高,坐标)，确定和判断鼠标是否在元素内部，二级导航菜单鼠标离开样式问题解决

设置: document.getElementById('id').style.width=value document.getElementById('id').style.height=value document.getElementById('id').style.top=value document.getElementById('id').style.left=value 获取: value=document.getElementById('id').offsetL

Delphi中正常窗口的实现

摘要: 在Delphi的VCL库中,为了使用以及实现的方便,应用对象Application创建了一个用来处理消息响应的隐藏窗口.而正是这个窗口,使得用VCL开发出来的程序存在着与其他窗口不能正常排列平铺等显得有些畸形的问题.本文通过对VCL的深入分析,给出了一个只需要对应用程序项目文件作3行代码的修改就能解决问题的方案,且不需要原有的编程方式作任何改变. 一.引言用Delphi所提供的VCL类库编写的Windows应用程序,有一个明显不同于标准Windows窗口的特点--主窗口的系统菜单与任务

delphi设计浮动窗口

delphi设计浮动窗口用过Photoshop的朋友一定对它的那些方便的浮动面板记忆犹新,其实这些面板就是一个个的小窗体,但这些小窗体都放在Photoshop的主窗体上 (不是存在主窗体中),有自己的标题栏.最小化按钮及最大化按钮.但它们与MDI程序不同的是,他们可以拖到主窗体外,更重要的是工作中所有这些面板窗体与主窗体最处于激活状态. 用Spy & Capture查看一下就不难发现,这些面板窗体的Parent Window都是Photoshop的主窗体(以Photoshop CS为例,主窗

鼠标在窗口中的坐标转换到 canvas 中的坐标

鼠标在窗口中的坐标转换到 canvas 中的坐标由于需要用到isPointInPath函数,所以必须得将鼠标在窗口中的坐标位置转换到canvas画布中的坐标,今天发现网上这种非常常见的写法其实是错误的! 代码如下: 1.function windowTocanvas(canvas, x, y) {2. var bbox = canvas.getBoundingClientRect();3. return {4. x: x - bbox.left * (canvas.width / bb

Java基础 awt Button 鼠标放在按钮上背景颜色改变,鼠标离开背景颜色恢复

JDK :OpenJDK-11 OS :CentOS 7.6.1810 IDE :Eclipse 2019‑03 typesetting :Markdown code package per.jizuiku.gui; import java.awt.Button; import java.awt.Color; import java.awt.FlowLayout; import java.awt.Frame; import java.awt.event.Mouse

qt 鼠标拖动窗口放大缩小

// 鼠标拖动具体实现void mouseMoveEvent(QMouseEvent * pEvent) { if (pEvent->buttons() & Qt::LeftButton) { if (resizeDir == nodir) {//移动窗口 QPoint newPos = pEvent->globalPos(); move(newPos - m_PressedPos); emit signal_drawWidgetPositionChange(this->pos

在非UI线程中更改UI（Delphi使用隐藏窗口来处理，QT使用信号槽）

在Delphi里我记得是使用TThread.Synchronize(TThreadMethod),原理是利用了一个隐藏窗口来处理. 在QT Debug模式一下,碰到了同样的问题,显示错误: cannot send events to objects owned by a different thread 解决方案是使用信号槽,就是在线程里不断的发信号,UI线程的槽函数不断的接受信号并做处理: So as a solution I would propose the following: Defi

Delphi 实现无窗口移动（详细使用WM_NCHITTEST和PtInRect API进行测试）

procedure imgListMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private procedure WMNCHITTEST(var Msg: TWMNCHITTEST); message WM_NCHITTEST; procedure TfrmStartHit.WMNCHITTEST(var Msg: TWMNCHITTEST); const cOffset

Delphi中有关窗口绘制

Invalidate方法通知Windows应该重新绘制表单的整个表面.最重要的是Invalidate不会立即强制执行绘制操作. Windows只是存储请求,并且只会响应它当前程序完全执行后,并且只要系统中没有其他待处理事件. Windows故意延迟绘画操作,因为它是最耗时的操作之一.有时,这种延迟,只有在多次更改后才能绘制表单,避免多次连续调用(慢)绘制方法.•Update方法要求Windows立即更新表单的内容并重新绘制.但请记住,只有存在无效区域时才会执行此操作.如果刚刚调用了Invalid

Jquery 单击_双击_鼠标经过_鼠标离开_背景样式变化

列表页点击.鼠标经过离开背景变化 <script type="text/javascript"> $(function () { $("table tr").click(function () { $(this).addClass("aliveTrClick").siblings().removeClass("aliveTrClick"); }) .dblclick(function () { $(this).re

Delphi下让窗口不显示在任务栏的另类方法

刚才看到了这篇东西<使窗口不在任务栏上显示(利用ITaskbarList接口)>,作者用ITaskList接口实现了隐藏窗口在任务栏按钮的功能,想起我好多年以前做的程序也有这样的功能,但是绝不是用这些接口之类的做的,只是一个API函数就搞定了(好像是SetWindowLong()中传个什么参数吧,真的想不起来了),可惜程序实在是找不到了,当然ITaskbarList的功能要稍许比以前的那个API强一些.觉得挺好玩,就用Delphi重新实现了一遍,把代码贴出来,以便今后做什么程序的时候还可以用.

DELPHI 鼠标离开窗口

热门专题