让窗体的标题栏不相应鼠标双击

原创 2002年05月17日 17:13:00

还等什么,让我们现在开始。

1。新建一个VB6的标准EXE工程,然后添加一个模块,将下列代码加入新的模块中:

Option Explicit
                   
Private Declare Function SetWindowLong Lib "user32" Alias _
        "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex _
        As Long, ByVal dwNewLong As Long) As Long
       
Private Declare Function CallWindowProc Lib "user32" Alias _
        "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal _
        hWnd As Long, ByVal Msg As Long, ByVal wParam As _
        Long, ByVal lParam As Long) As Long
       
Const GWL_WNDPROC = (-4&)

Dim PrevWndProc&

Const WM_NCLBUTTONDBLCLK = &HA3
 
Public Sub Init(hWnd As Long)
  PrevWndProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf SubWndProc)
End Sub

Public Sub Terminate(hWnd As Long)
  Call SetWindowLong(hWnd, GWL_WNDPROC, PrevWndProc)
End Sub

Private Function SubWndProc(ByVal hWnd As Long, ByVal Msg As Long, _
                            ByVal wParam As Long, ByVal lParam As Long) _
                            As Long
 
  If Msg = WM_NCLBUTTONDBLCLK Then
     Exit Function
  End If
 
  SubWndProc = CallWindowProc(PrevWndProc, hWnd, Msg, wParam, lParam)
End Function

2。在窗体的Load事件中加入一下代码:

Private Sub Form_Load()
Call Init(Me.hWnd)
End Sub

3。最后在窗体的Unload事件中加入:

Private Sub Form_Unload(Cancel As Integer)
Call Terminate(Me.hWnd)
End Sub

好啦,可以运行我们创建的这个工程了,现在双击窗体的标题栏是不是和以前不一样啊!

:)

以上程序在Win2000中文版、VB6下编译运行通过
                    

 

MFC对话框不响应标题栏双击

MFC对话框不响应标题栏双击
  • eickandy
  • eickandy
  • 2015年09月17日 13:35
  • 1195

QT自定义窗口标题栏实现拖动双击放大缩小

去掉Qt窗口的标题边框,重新定义标题栏,可以在标题栏上实现更多的功能,能满足更多的开发需求,可以实现标题栏的拖动,双击,自定义放大缩小。      本文引用自:http://www.devbean....
  • Enter_
  • Enter_
  • 2016年02月26日 18:07
  • 3184

MFC消息处理时,双击鼠标左键响应单击左键消息的处理

今天做老师留下来的作业题,莫名其妙出现Bug,然后发现是MFC消息处理机制的问题,在响应鼠标双击前,会先产生一个单击鼠标消息,这里是我的解决方法。 单击响应: void CMouseView:...
  • imudges_Zy
  • imudges_Zy
  • 2016年03月17日 22:21
  • 2626

如何禁止双击标题栏不改变窗口的大小和拖动标题栏窗口不移动的问题

做项目中遇到了这两个问题,主要是对非客户区的处理,现在把做法写出来, 第一个问题:只要禁止了非客户区的双击消息即可实现 (1)添加WM_NCLBUTTONDBLCLK事件处理函数 (2)...
  • monaso
  • monaso
  • 2016年08月03日 14:28
  • 642

C#窗体鼠标事件区分单击双击

直接用窗体的click和doubleclick事件相应函数是没办法区分的,因为click在doubleclick前面被触发。 办法一: 在mousedown事件中处理,通过timer计算两次单击时...
  • gaiazhang
  • gaiazhang
  • 2016年12月28日 16:16
  • 1646

【Qt】自定义标题栏并实现鼠标拖拽移动

1.Qt在windows下变成,标题栏归系统管理器管理。想要自定义就只能把原来的隐藏掉,然后自己添加组件,自己做; 2.首先设置属性,隐藏掉原来的标题栏:  /* 标题栏样式 */ ...
  • u010352603
  • u010352603
  • 2016年05月11日 00:45
  • 3506

javascript 鼠标单击和双击事件并存的实现方法

http://www.jbxue.com/article/8033.html 本文介绍下实现javascript鼠标单击与双击事件并存的方法,经常需要为一个链接注册双击事件,或让一个按钮或者其他元素...
  • Quincylk
  • Quincylk
  • 2014年08月14日 16:19
  • 22097

js判断鼠标单击或者双击事件

单击事件是指鼠标发生一次点击事件,经历了onmousedown,onmouseup,onclick的过程;双击事件是指鼠标连续在同一位置连续点击两次,经历了onmousedown,onmouseup,...
  • shenmill
  • shenmill
  • 2017年02月23日 00:55
  • 4900

Qt 单击和双击事件响应实现

参考这篇博文实现: http://www.cnblogs.com/siyuan/archive/2010/11/22/1883703.html 改动为:采用变量isDoubleClicked标记,单击...
  • wdmzslh
  • wdmzslh
  • 2016年11月23日 10:03
  • 3467

PyQt5无边框窗口的标题拖动和窗口缩放实现

网上找了半天都找不到好用的PyQt5无边框窗口的实现 借鉴部分前辈的窗口拖放代码 自己捣鼓了一下,实现了一下无边框窗口,问题可能还有一点,慢慢改吧 先做个笔记py文件#!/usr/bin/env...
  • qq_38528972
  • qq_38528972
  • 2017年11月19日 12:02
  • 296
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:让窗体的标题栏不相应鼠标双击
举报原因:
原因补充:

(最多只允许输入30个字)