导读:读了金永涛朋友的“无标题栏窗口中鼠标拖动技巧”一文颇有启发。但该文的思路是“通过设置时钟中断,在Mousemove()事件中根据鼠标的移动距离,实时修改窗体Form的Top及Left值,即可准确无误地实现窗口的鼠标拖动操作。”
正如该文所说,由于每移动一步都需要重画窗口,因此利用此方法实现鼠标拖动,比常规的标题栏鼠标拖动慢一些。而且对于窗口中如有多种控件,若想使鼠标拖动窗口中的任何位置都可实现窗口移动,必须对窗口中的所有控件进行上述的鼠标位置记录与移动处理。 这些缺陷都是该法难以克服的。下面根据笔者学习到的方法,提出另外一种“无标题栏窗口中鼠标拖动”的方法,该方法利用了API函数ReleaseCapture和SendMessage,通过ReleaseCapture来获取鼠标移动的信息并传到窗口中,再由SendMessage来发送信息实现窗口的移动。这种方法的优点在于:代码简单,而且无需对窗口中的控件进行编程。下面以VB为例。 当Form的ControlBox属性为False且Caption属性没有设值时,窗口就变成了如图1所示的“无标题栏的窗口”了。移动窗体代码如下: 在Modual1.BAS文件中声明: Declare Function ReleaseCapture Lib "user32" () As Long Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const HTCAPTION = 2 Public Const WM_NCLBUTTONDOWN =